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在 这 一 章 里 ， 我 们 将 用 MATLAB 解 两 个 相似 的 微分 方程 系统 . 首先 ， 我 们 推广 古典 的 等 切面 
曲线 问题 ， 计 算 小 孩 拉 玩具 的 轨迹 . 然后 计算 狗 攻 击 慢 跑 者 的 轨迹 .我 们 还 用 MATLAB 显示 这 些 


运动 轨迹 . 


吉 典 等 切面 曲线 


1 .2 

在 17 世纪 ， Gettfried Wilhelm Leibniz 曾 讨 论 下面 问 题 ， 参 见 [2,1]: 将 一 个 手表 系 在 一 条 链 
子 上 ， 当 沿 直线 拉 此 链 的 一 痪 时 ， 在 平面 上 ， 此 手表 所 描述 的 轨迹 是 什么 ? 

假设 a 为 此 链 的 长 度 ， 手 表 看 成 一 个 点 ， 如 果 假 设 手 表 开 始 位 于 z 轴 的 点 (ao,0) 处 ， 我 们 从 


原点 开始 在 y 轴 的 正方 向 上 拉 ， 则 容易 求解 此 问题 [ 引 ,( 参 见 图 1.1). 
图 1.1 古典 等 切面 曲线 


(1.1) 





为 了 解 方程 (1.1)，, 我 们 只 需 积 分 : 


> assume(a>=0) ; 
> y:= -int(sqrt(a -2-X7~2)/X,XD)+Cj 
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Vy := 一 Va-? 二 (1.2) 
Q “一 区 


当 执 行 不 定 积 分 时 ， MAPEE 不 包含 常数 . 因此 我 们 增加 一 个 积分 常数 c. 利用 limz_ yz) =0. 我 
们 能 确定 它 的 值 : 





>  c:= solve(1limit(y,x=a) ,c); 


1 
人 


利用 MAPLE 5.3, 我 们 从 int 直接 得 到 一 个 实 表 达 式 ， 因 为 对 于 实 表达 式 ， 此 常数 为 0, 我 们 不 必 
计算 一 个 复 的 积分 常数 、 


> yold:= -~Sqrt(a`2-X ~“2)+a*#arctanh(Ssqrt(a~2-Xx ~2)7a) ; 


j -2 2 
yold := 一 Va- 2 一 7z2 十 ararctanh( 一 一 一 一 ) (1.3) 


为 了 证 明 两 个 结论 相同 ， 我 们 把 它们 相 减 并 转 成 指数 对 数 形 式 ， 化 简 并 展开 
> e:= expand(simplify(convert((y-yold)/Va,expln)y)); 


1 
e :一 一 PCV a-2 一 22 一 站 G ) 


在 MAPLE 中 , 不 可 能 再 化 简 此 式 . 但 是 应 该 注意 ， 第 一 个 对 数 函 数 中 的 量 是 第 二 个 的 负 值 . 因此 ， 
如 果 用 一 个 正 的 未 知 数 dg 代替 ea - V 喧 - 王 , 类 似 地 用 -qd 代 才 Va“ 一 z 一 oa 则 MAPLE 能 化 简 这 
个 表达 式 ; 
> assumne(dG>0) ; 
> simplify(subs({(a "2-x-2)”~(17/2)-a=-d,-(a`2-xX 2) (1/2)+a=dj,e)); 
0 


假设 被 拉 物 体 的 初始 位 置 在 y 轴 上 的 点 (0,a), 我 们 从 原点 开始 拉 ， 但 这 次 在 zx 轴 的 正方 向 上 、. 
考虑 在 物体 的 轨迹 上 的 点 (z,y(z)). 在 zx 轴 上 ， 此 链 的 端点 是 (z - Wz)/yY(z),0), 即 切 线 与 z 
轴 的 交 氮 (与 Newton 迭代 一 步 所 得 的 点 相同 0. 所 以 ， 具 有 常数 长 度 a 的 此 链 ， 导 出 微分 方程 


y(z)” 2 
(DZ +gW(z) = 三 Ga ， (1.4) 


不 能 通过 求 积分 直接 解 它 . 因此， 需要 调用 微分 方程 的 求解 程序 dsolve， 





>  Iestart ; 
> assSume(a>0) ; 
> eq := (y(Cx)Vdiff(y(x)，x))”2 + y(Gx) ”2 = a”2; 


y(z) 2 
1 
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> Pp:=dsolve(eq,y(x) ) ; 


中 


Dp := V-y(z)2 十 ae 一 一 a 全 十 Z 一 -CT1， 


人 


一 \/ 一 y(Z)2 十 证 arctanh(-- 一) 下 冲 2C 
V -y(z)2 十 oa 


并 得 到 两 个 解 ， 从 初始 条 件 y(0) = a 和 物理 学 ， 对 于 a > 0, 可 得 y(z) > 0 和 y(z) < 0. 因此 ， 第 
一 个 解 是 我 们 问题 的 正确 答案 : 


> 了 PP[ 雪 ; 
\/ 一 y(Z)2 十 二 十 并 一 -CT 
V 一 y(z)2 十 oa 


我 们 得 到 隐 式 的 解 y(z). 为 了 求 积 分 常数 - Cl, 我们 利用 约束 lmz-oy(tz) =a 


> _Cci:= Limit(1hs(subs({x=0,y(x)=y},Pp[t)),y=a) ; 
攻 一 OA 
迪 


于 是 ， 解 满足 方程 


和 工 
人 一 2(z)” 是 aarctanh( -一 一 一 ) 十 2 王 7 QT 
V -3y(z) 十 a-? 


由 MAPLE 5.3, 可 得 到 实 表达 式 


Va2 一 y(z) 一 a arctanh [ 写 十 2 一 0 


全 


当然 ， 我 们 也 可 在 方程 (1.2) 和 (1.3) 中 ， 互 换 变量 > 和 y 得 到 这 些 方程 . 值得 注意 的 是 ， 因 为 对 
z = 0, 有 奇异 性 Y(0) = ce, 所 以 用 数值 方法 解 方程 (1.4) 是 困难 的 . 


1.3 “小孩 和 玩具 


让 我 们 解决 一 个 更 一 般 的 问题 ， 假 设 一 个 小 孩 在 平面 上 沿 一 曲线 行走 ， 此 曲线 由 两 个 时 间 的 
函数 X( 和 了 ( 电 确定 . 
假设 此 小 孩 借 助长 度 为 a 的 硬 棒 ， 拉 或 推 基 玩具 ， 当 此 小 孩 沿 曲线 行走 时 ， 我 们 计算 玩具 的 
轨迹 . 设 (z 的 ,yy( 苞 ) 是 玩具 的 位 置 . 
从 图 1.2 可 得 下 列 方程 : 
1.(X(,YG) 与 (z 人 by 的) 之 间 的 距离 总 是 硬 棒 的 长 度 ， 于 是 


(和 一 z)2 十 (和 一 人 2 一 o (1.5) 


2. 玩具 总 是 在 硬 棒 的 方向 上 运动 ， 因 此 ， 两 个 位 置 的 差 向 量 是 玩具 的 速度 向 量 的 倍数 ， v7 = 


(之 2) : 
及 一代 人 
0 其 中 入 > 0. (1.6) 
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图 1.2 速度 vc 和 vT 


[x(by(] 





[X(bY(] 


小 孩 的 速度 vc 
项 其 的 速度 


VC 


3. 玩具 的 速度 依赖 于 小 孩 的 速度 向 量 vc 的 方向 ， 例 如， 假设 小 孩 在 半径 为 a ( 硬 棒 的 长 ) 的 圆 
上 行走 . 在 此 特殊 情况 下 ， 玩 具 停 留 在 此 圆 的 圆心 ， 根 本 不 运动 (这 是 第 一 个 例子 的 最 后 状 
态 ， 人 参见 图 1.3 ). 
从 图 1.2 可 知 ， 小 孩 的 速度 vc 在 硬 棒 上 的 投影 的 模 是 玩具 的 速度 vT 的 模 . 
将 方程 (1.6) 代入 方程 (1.5) 中 ， 可 得 


a2 = X2(22 十 扩 ) -> 入 = 一. 
是 V 而 下 克 
于 是 ， 
本 
ES (1.7) 
V22+22 AN 3Y 壮 一 Y 


为 了 得 到 之 和 销 我 们 要 解 方程 (1.7). 因为 玩具 的 速度 的 模 |vw,| = |vo|cosa, 见 图 1.2, 这 由 下 面 步 
又 可 得 到 ; 
。 标准 化 差 向 量 (X - z,Y -~ W)T, 可 得 单位 长 的 向 量 w. 
。 确 定 vc = (总 ,Z) 在 w 生成 的 子 空间 上 的 投影 .因为 vRw = jvcjllwlcosa 和 |wj = 1 所 以 
这 就 是 内 积 vBEw. 
evT 一 (2 四 二 (vEw)w. 


现在 ， 我 们 能 用 MATLAB 写 出 函数 ， 求 解 微分 方程 系统 . 
工法 1.1 函数 工 


function zs = 工 (tt,Z) 

扩 

[X Xs YYs]j = child(t) ; 

vv =[Xs; Ys] ; 

VW =[X-z(1); Y-z(2)] ; 

V = WwW/Anorm(Cw) ; 

ZS = 《〈《V ?水 册 ) 水 页; 
函数 工 调 用 一 个 函数 child, 对 于 给 定 的 时 间 t, 它 返回 小 孩 的 位 置 (并 ( 轨 , 了 (区 ) 和 速度 (Xs( 相 ,了 s(). 
例如 ， 考 虑 小 孩 在 圆 X( 区 一 5costbi7yG 三 5sint 上 行走 ， 此 时 相应 的 通 数 child 是 : 

算法 1.2 函数 Child 
ftunction [X，Xs，Y，YSs] = child(Cty) ; 
办 
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X = 5*rcos(t); Y = 5*rsin( 七 ); 
Xs = -5*sin(t); YS = 5+*cos(t); 


MATLAB 提供 两 个 M 文件 ode23 和 ode45, 用 于 求 积 微分 方程 . 在 下 面 的 主 程序 中 ， 我 们 将 调用 
这 些 函 数 之 一 ， 并 定义 初始 条 件 (注意 ， 当 上 = 0 时 ， 小 该 在 点 (5,0) 处 和 玩具 在 点 (10,0) 处 ): 


>> / mainl .m 

>> y0 = [10 0]，; 

>> 比 y]j = ode45()f:,[0O 100] ,y0) ; 
>> ClLE; hold om; 

>> axis([-6 10 -6 10]) ; 

>> axis()square:) ; 


>> PLot(Cy(: ,1),y(: ,2)) 3; 


图 1.3 小 孩 在 贺 上 行走 





如 果 绘 制 两 列 %, 则 可 得 玩具 的 轨迹 (参见 图 1.3), 而 且 在 同一 图 中 ， 用 语句 加 进 小 孩 的 曲线 : 
>> 七 = 0:0.05:6.3; 
>> [X， Xs，Y，Ys] = child(t) ; 
>> PlLot(X,Y，: :7) 1; 
>> hold off ; 
注意 , 在 程序 中 ,， 硬 棒 的 长 a 没有 明显 出 现 ; 它 由 玩具 的 位 置 (初始 条 件 )) 和 + 上 = 0 时 小 孩 的 位 置 ( 函 
数 child)j 隐 念 地 定义 . 
我 们 用 几 个 例子 来 结束 本 节 . 假设 小 孩 沿 sin 末 数 的 图 形 行走 : 天 均 三 上 1 和 了 所 三 5sint 小 
孩 的 曲线 用 虚线 表示 ， 初 始 条 件 z(0) = 0 和 3%0) = 10, 我 们 得 到 图 1.4. 
另 一 个 例子 ， 小 孩 在 贺 怀 志 一 5costiyY( 一 5sint 上 行走 ， 初 始 条 件 z(0) =0 和 YY(0) = 10， 
我 们 得 到 一 个 象 伦 的 玩具 轨迹 (参见 图 1.5). 
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SS 图 1.4 例 2 





1.4 慢跑 者 和 狗 


我 们 考虑 下 面 问题 : 为 了 每 天 锻炼 ， 一 个 慢跑 者 在 平面 上 沿 着 他 喜欢 的 路 径 跑 步 ， 突 然 一 只 
狗 攻 击 他 ， 这 只 狗 以 恒定 速率 w 跑 回 慢跑 者 ， 计 算 狗 的 轨迹 . 

狗 的 轨迹 具有 如 下 性 质 : 在 任意 时 刻 ， 狗 的 速度 向 量 都 指向 它 的 目标 慢跑 者 . 假设 慢跑 者 在 
某 路 径 上 跑步 ， 他 的 运动 由 两 个 函数 X 蕊 和 了 了 (b 描述 . 

假设 当 上 = 0 时 ， 狗 是 在 点 (zo,yo) 处 ， 在 时 刻 上 时 ， 它 的 位 置 是 (z( 区 ,V( 坟 ) 下 列 方程 成 立 : 
1. 和 十 久 三 风 : 狗 以 恒定 速率 跑 . 
2. 狗 的 速度 向 量 平行 于 慢跑 者 与 狗 的 位 置 的 老 疝 量 : 


外 及 一 和 
入 > 0. 
( | ee 


如 果 将 它 代 入 第 一 个 方程 ， 我 们 得 到 








求解 此 方程 ， 可 得 入 : 


人 
大 一 开 
| ) 
最 后 ， 将 此 式 代 入 第 二 个 方程 ， 可 得 狗 的 轨迹 的 微分 方程 : 


Te (1.8) 


芭 二 沁 











一 ] 
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图 1.5 花形 轨迹 





我 们 将 利用 M 文件 ode23 .am 或 ode45.m, 求 积 微分 方程 系统 . 注意 ， 当 狗 达 到 慢跑 者 时 ， 系 统 (1.8) 
有 一 个 奇异 点 . 此 时 差 向 量 的 范 数 变 为 0, 我 们 必须 停止 积分 . 上 面 提 到 的 求 积 微分 方程 的 MATLAB 
函数 ， 要 求 输入 独立 变量 的 一 个 区 间 . 现在 ， MATLAB 5.0 也 可 定义 另 一 个 求 积 终止 准则 ， 它 不 同 
于 给 定 独 立 变 量 的 一 个 上 界 ， 而 是 通过 检查 冰 数 的 霍 交 点 ， 来 终止 积分 . 在 我 们 的 例子 中 ， 当 狗 达 
到 慢跑 者 ， 即 |X -zz -2 变 成 很 小 时 ， 将 终止 积分 . 为 此 在 M 函数 dog.m 中， 我 们 必须 
增加 第 三 个 输入 参数 和 两 个 新 的 输出 参数 . 积分 器 ode23 或 ode45, 以 两 种 方法 调用 此 函数 : 第 一 
种 方法 是 取消 第 三 个 参数 ， 枯 数 只 返回 参数 zs : 狗 的 速率 . 第 二 种 方法 是 ， 将 关键 字 'events' 赋 
值 给 参数 flag, 此 关键 字 告 诉 函 数 ， 在 第 一 个 输出 zs 中 返回 零 交 点 函数 . 第 二 个 输出 isterminal 
是 一 个 逻辑 问 量 ， 它 告诉 积分 器 ， 当 第 一 个 输出 的 分 量变 成 0 时 ， 它 们 迫使 过 程 终止 .具有 这 种 
性 质 的 每 一 个 分 量 ， 在 isterminal 中 ， 用 非 零 标 记 . 第 三 个 输出 参数 airection 也 是 一 个 向 量 ， 
它 表 示 : 对 zs 的 每 个 分 量 ， 零 交点 是 否 仅 被 视 为 增加 值 (direction = 1), 下 降 值 (qirection = 
-1) 或 两 者 (airection = 0). 零 交 点 的 条 件 将 在 积分 器 里 检查 . dog 和 主 程序 中 ， 必 须 声 明 狗 的 
速率 w 是 全 局 变量 ._M 函数 jogger.m 给 出 慢跑 者 的 轨迹 . 


算法 1.3 思 数 Dog 
function [zs,isterminal,direction] = dog(t,z,flLag) ; 
为 
global W hmw= Speed of the dog 
X= jogger(t) ; 
hb= 及 -~Z; 
nh= norm(h) ; 
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if nargin < 3 j| isempty(flag) % normal outPput 
Zs= 《wj/nh)x*h， 
e]Se 
SWitchtflag) 
case :events， Ah at Dorm(h)=0O there is a Singularity 
ZS= Dh-1le-3; /ph Zero crossing at pos_dog=Pos_jogger 
isterminal= 1; A this is a stopping evVent 
Qirection= 0; hh den 七 care if decreaSse or increase 
otherwlse 
error([:Unknown flag: ”flag]); 
end 


end 


主 程序 main2.m 定义 初始 条 件 ， 调 用 ode23 进行 积分 . 为 了 求 积 ， 我 们 必须 提供 时 间 + 上 的 上 界 . 
>> Ahmain2 .mm 
>> ELobal YY 
>> yO0=[60;70] ;yinitial condition,starting point of the dog 
>> W = 10; hw spbeed of the dog 
>> options= odeset(，RelTol， ,le-5, :Events， ,on)); 
>> [t,Y] = ode23('dog:,[0,20] ,y0,options) ; 
>> Clf;i hold on; 
>> axis(L-10,100,-10 ,70]) ; 
>> plot(Y(: ,1) ,Y(: ,2)7) ; 
>> J=[]; 


>> for h=1:length(t) ， 


>> w = jogger(t(h)) ; 
>> J 了 = LJ; w?]; 
>> ena ; 


>22 DLLot4JI4 1 可 2 
如 果 达 到 时 间 上 上 的 上 界 或 狗 赶 上 慢跑 者 , 积分 将 终止 . 对 于 后 者 , 我 们 设置 ODE 选项 的 标志 Events 
为 “on 这 告诉 积分 器 检查 ， 具 有 flag =:events 的 被 调用 琐 数 aog 的 零 交 点 .调用 ode23 后 ， 
变量 了 包含 有 两 个 函数 z( 切 和 yb 的 值 的 表 ， 用 语句 Plot(Y(: ,1) ，Y(: ,2)), 我 们 画 出 狗 的 轨 
迹 . 为 了 显示 慢跑 者 的 轨迹 ， 我 们 需要 用 癌 量 上 和 了 末 数 joggezr 计算 它 . 
现在 ， 我 们 计算 几 个 例子 . 首先 ， 假 设 慢 跑 者 沿 z 轴 跑 步 : 


算法 1.4 第 一 个 慢跑 者 例子 
function s = jogger(t) ; 
sS = [8*t; 0] ; 
在 上 面 的 主 程序 里 ， 我 们 选取 狗 的 速率 为 也 =10, 因而 怀 ( 罗 = 8 慢跑 者 是 较 慢 的 ， 如 图 1.6 所 
示 ， 狗 抓 住 慢跑 者 . 
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如 果 想 指出 慢跑 者 有 麻烦 的 位 置 ， (也 许 设立 一 个 小 纪念 物 , ) 我 们 利用 下 面 文件 cross .mm 
算法 1.5 画 十 字 标 


function cross(Cx,Cy,V) 

办 draws at position  Cx,Cy aa cross of height 2.5v 
hp and Width 2#V 

KX = [Cx Cx Cx CXx-V Cx+V] ; 

Ky = LCy Cy+2.5*V CY+lL1.5+*V CY+1.5*+*V CY+1.5*V] ; 
P1Lot (Kx ,Ky) ; 

Plot(Cx,Cy,，:o7) ; 


图 中 的 士 字 标 是 由 主 程 序 增 加 语句 
>> P = max(size(Y)) ; 
>> cross(Y(P,1) ,Y(P,2) ,2) 
>> hold off ; 
所 产生 ， 下 一 个 例子 显示 慢跑 者 转向 的 位 置 并 跑 回 家 : 


算法 1.6 第 二 个 慢跑 者 例子 
function s = joggerlt( 世 ) ; 
让 
if t<6，s = [8*t;i 0] ; 
[8* (12-t) ;0] ; 


elLSe S 


end 


图 1.6 慢跑 者 沿 直 线 y=0 跑 
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1.7 慢跑 者 向 回 跑 





用 前 面相 同 的 主 程序 ， 当 上 = 9.3 时 ， 狗 赶 上 慢跑 者 (参见 图 1.7). 现在 ， 考 虑 一 个 更 快 的 慢跑 
者 在 一 个 椭圆 上 跑步 


算法 1.7 第 三 个 慢跑 者 例子 
function 8 = jogger2(t) ; 
S = [ 10+20*rcos (七 ) 
20 + 15*sin(t)] ; 


如 果 狗 跑 得 快 (w = 19), 当 上 = 8.97 时 ， 它 赶 上 慢跑 者 (参见 图 1.8). 最 后 ， 考 虑 一 只 老 的 、 慢 的 狗 
(w = 10), 它 在 一 个 椭圆 上 跑 ， 并 且 努 力 赶 上 慢跑 者 . 然而， 狗 不 在 椭圆 上 的 某 点 等 待 ， 而 是 在 它 
的 目标 后 面 跑 ( 太 慢 ) 我 们 能 看 到 一 个 稳定 的 状态 ， 狗 在 椭圆 内 一 个 闭 轨 迹 上 跑 (参见 图 1.9). 


1.5 用 MATLAB 显示 运动 


同时 显示 小 孩 和 玩具 ， 或 狗 和 慢跑 者 的 运动 ， 而 不 只 是 画 出 它们 静态 的 轨迹 ， 这 样 效果 会 更 
好 ， 这 可 用 MATLAB 的 图 形 句柄 命令 . 关于 小 孩 和 玩具 的 主 程序 如 下 : 
>> hmain3 .m 
>> yY0 = [LO 20] :; 
>> options= odeset(?RelTol， ,1e-1t0) ; 
>> [t yj = ode45(':f，，[0 40] ，y0，options) ; 
>> 区，Xxs，Y，Ys] = child (t) ; 


>> xmnin = min (min (X) ，min (7 〈: ，1))); 
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>>> 
> 


>>>> 
>>> 
>>> 
>>>> 
>>> 
>>> 


之 
> 
>> 
>>> 
> 
>>> 
>>> 
>> 
>> 
>>> 


图 1.8 慢跑 者 在 椭圆 上 跑 





xmax = max (max (X) ，max (yY (:，1))); 


ymin = min (min (Y) ，min (yY《〈:，2))); 
ymax = max (max 〈(Y) ，max (了 〈:，2))); 
ClLfE; held on 


axis (〈[xmnin xmax ymin ymax] ) ; 
/ axis(equal?) ; 
tit1le 《〈《)The Child and the Toy. :); 


stickhandle=1line()?Color:，, :yellow)，,，:EraseModqe: ,，?Xor:，,，... 


)LineStyle:,，，-:，:XData，,[] , :YData ,[]) ; 


for K = 1T:Iength(t)-1， 


P1lLot([X(CK) ,X(K+1)]，[Y(k) ,Y(kK+1)] ,一 ， 
)Color ,yellow: ,EraseMode: , none ') ; 
PlLot(CLy(Gk,1) ,yY(Ck+l,1)],[yGKk,2) ,y(Ck+l,2)]，-，，... 
)Color ，，)gEreen:，)，EraseMode:，，:none:) ; 
set (stickhandle,，:XData，,，L[X(k+1),y(k+l,1)] ， 
)YData:，[Y(Ck+l)，y(Gk+l,2)]) ; 
drawnow; 
endQd ; 
hojljdq oftf ; 


| 
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图 1.9 慢跑 的 狗 





对 于 联接 棒 的 直线 类 型 的 图 形 对 象 ， 我 们 定义 变量 stickhandle 为 它 的 一 个 句柄 ， 在 循环 内 ， 我 
们 画 出 小 孩 和 玩具 的 轨迹 新 的 部 分 ， 并 移动 棒 的 位 置 . 用 drawnow 命令 可 即时 画 出 这 些 图 形 ， 因 
此 ， 我 们 能 看 到 同时 画 出 两 个 轨迹 和 棒 . 


在 慢跑 者 和 狗 的 情况 下 ， 我 们 不 必定 义 句 柄 .我们 所 作 的 只 是 以 适当 的 顺序 ， 画 出 两 个 轨迹 


的 各 部 分 ; 
>> Amain4 .m 
>> 区 Jobal 了; 
>> y0=[60;70] ;Yinitial conditions ,starting Point of the dog 
>> WwW = 10; pw speed of the dog 
>> cptions= odeset(”RelTol',1e-5,?Events，,，on)) ， 


>>>> 


>>> 
>> 
官 > 
定 > 


>>> 
定 > 
>>> 


[Lt,Y] = ode23(:dog', [0,20] ,y0,options) ; 


J= []; 

for h= 1:length(t) ; 
w = jogger(t(h)); 
本 


min (min (Y (:，1))，min (J (:，1)))， 
max (max (Y (:，1))，max (J (:，1))); 
min (min (Y〈:，2))，min (J (:，2))); 


日 站 
-县 是 


和 
世 
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>> ymax = max (max (Y (:，2))，max (J 了 (:，2))); 
>> Clf;i hold on 

>> axis 〈[xmin xmax ymin ymax] ) ; 

>> 办 axis(?equal:) ; 

>> title (The Jogger and the Dog. :); 


>> for h = 1:]1ength(t)-1， 
>>> P1Lot (LYCh ， 1) ,Y(h+1 ,1)] 3 [Y4h ,2) ,Y(h+1 ,2)] 》 3 。“。。，。， 


>> Color :，):yellow:，?EraseMode，，:none?) ; 
>> “plot 〈[JGh,1),JGh+l,1)],[J4h,2) ,JIh+1l,2)]，::”，.. 
>> Color :，，)，green:，)，ETraseMode，，)?none，) ; 


>> ”drawnow; 
>> “Pause(l) ; 
>> end ; 

>> hold off; 


1.6 具有 恒定 速率 的 慢跑 者 
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在 本 节 中 ,我 们 仍 考虑 慢跑 者 的 覃 圆 轨迹 . 如 果 椭 圆 仍 如 算法 1.7 中 所 描述 ， 并 考虑 鞋 为 时 间 
变量 ， 则 慢跑 者 的 速度 不 是 恒定 的 . 令 s(b) 是 描述 中 心 在 (mi,mm2?) 和 主 半 轴 为 和 ?的 椭圆 的 参 


数 : 
X(s) 三 ?nl 十 acos(s)，Y(s) 一 ma 十 psin(s). 


我 们 希望 确定 ， s 是 时 间 上 的 单调 递增 函数 ， 使 得 对 于 等 间隔 的 时 间 卢 ， 在 椭圆 的 边界 上 ， 扣 


X(s( 人 ti))Y(s()) 之 间 也 是 等 距离 .一 个 等 价 的 条 件 是 慢跑 者 的 速度 了) 为 常数 : 


人 


现在 ， 为 了 得 到 s( 划 , 先 通过 解 方程 (1.9), 计算 Ds = ds/dt: 


> Xe := mt + arcos(s(t)): Ye := m2 + brsin(s( 七 ) ) : 
> Ve2 := diff(Xe，t)”*2 +diftf(Ye，t) ”2 =V“2; 


Ye8 := asin(s( 人 四) (人 s(t))2 十 82cos(s( 人 )” ( 守 s(t)2 一 


> Ds := solve(Ve2，diff(s(t) ,七 ) ) ; 
人 T 


D5 := 一 天 一， 一 一 天 一 天 一 一 一 一 一 一 > 
azsin(s( 要 )2 十 到 一 和 sin(s()2 azsin(s( 吉 )3 十 她 一 52sin(s()2 


(1.9) 
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因为 慢跑 者 逆 时 针 运 动 , 我 们 必须 选取 第 一 个 方程 . 微分 方程 没有 解析 解 ， 所 以 我 们 将 用 MATLAB. 
数值 地 求解 它 . 加 上 两 个 微分 方程 (1.8), 我 们 得 到 一 个 三 对 微分 方程 的 系统 : 


Xi = 三 ?nl 十 acos(s(t)) 
Y (起 = 三 ?na 十 bsin(s(t)) 
(办 三 c( 人 (一 z( 芍 ) 
(四 三 c(Y(b) 一 1 


“= -天 -一 一 -一 
esin(s( 的 ) 十 ecos(s() 


加] 


用 函数 fkt( 算 法 1.8) 实现 此 系统 ， 由 算法 1.9 给 出 对 应 的 主 程序 . 


算法 1.8 具有 常 速 度 慢 跑 者 的 声 数 ft 
function [ydot,isterminal,dqirection] = fkt(t,y,flag) 
% System of differential equations 
A for the jogger-dog Prob1lenm 
Ah where the jogger runs with constant 
% Velocity on an ellipse 
glLobal ab mc 
A = cos(y(3)); B = sinGy(3)) ; 
X=m(i) + a*rhA;i Y = m(2) + b*B， 
n LX;Y] -y(1:2); nh = norm(h) ; 
zs = (w/nh)x*h; 


if Dargin < 3 | isempty(flag) % normal output 
ydot = [zsic/sqrt((CarB) ”2+(b*rA) ”2)] ; 
elSe 
Switch(flagy) 
case evVents，” /A at norm(h)=0 there is a singularity 
ydot= nh-(1le-3); % zero crossing at pos_dog=pos_jogger 
isterminal= 1;  % this is a stopping event 
dlIrection= 0 ; Ah don't care if decrease or increase 
otherwise 
eror([:Unknown flag :”， flag 2”，,?]); 
end 


enda 


为 了 与 以 前 的 计算 比较 ， 我 们 选取 方程 (1.9) 中 的 常数 为 第 1.4 节 例 子 中 慢跑 者 的 平均 速度 ， 


=7G = 了 人/ vod= 基 
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> 了 T 了 T:= 2*rPli: 
> LL := evalf(4*int(sqrt(20`2*sin(f)"2 + 15”"2*rcos(f) -2),f = 0..Pi/2)); 
> V := evalf(LVAT) ; 


了 :一 110.5174608 
Y :=17.58940018 


注意 ， 如 果 执 行 算法 1.9, 则 当 上 = 8.22834 时 ， 狗 赶 上 慢跑 者 ， 这 比 1.4 节 中 的 更 早 一 点 . 
算法 1.9 具有 常 速 慢 跑 者 的 主 程序 


>> 加 main5 .mm 

>> gLobal ab mcTW 

>>a= 20; b= 15; / semni-axes 

>> 台 [10;20] ; 

17.58940018; /4 constant velocity of jogger 


>> C 


>> WwW = 19; Ah velocity of dog 
>> yY0O = [60，70，0]j:”; /ini. cond.，starting Point of the dog 


>> options= odeset(?AbsTol ,ie-5,，)?Events:，?on7) ; 

>> [t,Y]= odqe23 (fkt，，[0 20]，y0，options) ; 

>> Clt;i hold on 

>> axis ([-10 70 -10 70] ) ; 

>> % axis (equal ，) ; 

>> title ('The Jogger Runs with Constant Velocity. :1) ; 
>> P = length(t)-1; 

>> or h=1l1:P 

>> plot ([YGh,1) ，YGOh+1l,1)] ，[YGh,2)，YGh+1l,2)] ，:-)， 
>> Color:，，?yellow:，?EraseMode:, :none ':) ; 

>> sl =Y(h,3); s2 = Y(h+l,3) ; 

>>  XL = m(1) + ayrcos(sl1); YL1 = m(2) + byxsin(s1) ; 

>>  X2 =m(L) + ayrcos(sS2); Y2 = m(2) + b*sin(Cs2) ; 

> 102] 


>> Color:， ，”green) ，)EraseMode，，?none :1) ; 


>> GTrawnow:; 

>> end ; 

>> cross(Y(Pp,1),Y(P,2) ,2) ; 
>> holdQ off; 


1.7 利用 移动 的 坐标 系统 


在 本 节 中 ， 我 们 将 用 Cartesian 坐标 系 ， 分 别 描述 小 了 该 和 慢跑 者 的 位 置 ， 用 活动 的 极 坐 标 分 别 
描述 玩具 和 狗 的 位 置 ， 参 见 图 1.10, 活动 的 极 坐标 的 原点 ， 分 别 是 小 孩 和 慢跑 者 的 位 置 ， 从 而 由 距 
离 co(bj 和 极 角 4%(t),， 可 确定 玩具 或 狗 的 当前 位 置 . 
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图 1.10 移动 坐标 系 ， [p 人 ,gb] 


yt 人 





如 果 [X(D,YG] 为 当前 小 孩 / 玩具 的 位 置 ， 则 在 Cartesian 坐标 中 ,慢跑 者 / 狗 的 坐标 
[z(b,y(] 是 
z(b 一 时 (的 二 pb cos(g()，g( 的 一 工 ( 介 二 pt) sin(g()， (1.10) 


我 们 用 新 变量 po( 均 和 gt 分 别 表示 微分 方程 系统 (1.7) 和 (1.8), 由 此 可 得 微分 方程 的 一 个 变换 . 
注意 ， 这 两 个 微分 方程 系统 是 


| 2 | -PACSA 0 (1.11) 
有 友 一 处 半 一 

上) 
的 特殊 情况 . 如 果 保 持 常 数 速度 Vz2 + = 由 = const 则 (1.11) 描述 慢跑 者 / 狗 问 题 . 另 一 方 
面 ， 如 果 上 距离 是 常数 

四 =|‖ (7 7 川 =a=cons 

plti) 一 0 一 Q 一 CoOms 
则 得 到 小 孩 / 玩具 问题 的 方程 . 因为 对 于 小 孩 / 玩具 问题 ， po(b = const 我 们 希望 在 极 坐 标 中 ， 
简化 成 只 有 一 个 关于 g 坟 的 微分 方程 ， 我 们 将 用 MAPLE 实现 这 种 变换 . 


1.7.1 慢跑 者 / 狗 的 变换 
我 们 先 定义 系统 (1.8): 


> ITestatt ; 

> St) := sqrt((XCt) - xt))” 2 + (Y(Gt) - y(t)) ”2) : 
> TYXxX := qiff(x(t)，t) = Wy(X(t) - X(t))VS(t) ; 

> ITy := diff(y(t)，t) = W*r(YCt) - yt))VSCt) ; 


有 
3i (又 (划一 x( 思 )2 十 (Y( 一 y 人 的) 
W YL) 一 y(b)) 


D 
人 (以 的 一 X 的 关 十 (的 一 y( 的 六 
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现在 ， 我 们 引进 范 数 的 变换 和 它们 的 导数 : 
> Rx :=xXxt) = XCt) + rho(t)*cos(pPhi(t)): 
> Ry :=y(Gt) = YIt) + rho(t)*sSinCphi(t7) : 
> Vx := diff(Rx，t); Vy := diff(CRyY，t 上 ) ; 
昌 O D 本 时 OO 
Yz :一 这 X( 明 二 ( 庆 闪 的 ) 十 (Dr 人) cos( 风 区 ) 一 P) sin(( 世 )( 7 几 () 
节 


革 


人 江 运 7 的 二 (有 YY) 十 (就 p( 的 ) sin( 风 的 ) 十 Pt) cos(g(t)) 太 中 区 ) 


我 们 代入 并 化 简 结 果 : 


> qx := Subs(VXx，IX): qy := Subs(VyY，Ty) : 
> qx := Simplify(subs(Rx，Ry，qx)，symbolic) ; 
> qy := simplify(subs(Rx，Ry，qy)，symbolic) ; 


gz := ( 蚊 ) 十 (时 p()cos(g() - pfb) sin(g(D)( 昌 4) = 一 丽 cos(g() 
gy := 好 了 (十 ( 襄 p(D)sin(g() +p(t) cos(g(b))( 昌 gbD) = 一 丽 sin(g() 


最 后 ， 为 了 得 到 po 和 少 坟 的 导数 ， 我 们 解 : 
> Dsys := solve({fqx，qy}+，{fdqiff(rho(t)，t)，diff(phi(t)， 七 )}) ; 


cos(g()( 商 了 () 一 ( 疯 入 扩 ) sin( 罗 人) 


Dsys := 人 ft) 一 让 


半 plb = -( 史 YGD)sin(d(b) -cos(d(D))( 呈 X(D) - | 


> Dradqial := Dsys[2]; Daxial := Dsys[1] ; 


Dradzal :一 部 oft) 一 (全 Y( 切 )sin(b() 一 cos( 办 人)) ( 亏 又 ( 丰 ) 一 W (1.12) 
“cos(d()) (总 Y(D) - (最 X()sin(d() 
Pt) 


导出 的 微分 方程 系统 更 简单 ， 但 是 没有 解析 解 ， 因 此 我 们 将 不 继续 讨论 . 
1.7.2 小孩 / 玩具 的 变换 
如 前 所 述 ， 我 们 定义 微分 方程 系统 : 


> Rx :=Xt) =Xt) + ayrcos(Phi(t)): 
> Ry :=Yy(t) = Y(t) + ayrsin(phi( 七 )): 
> Vx := dift(Rx，t): Vy := diff(Ry，t) : 


对 于 玩具 的 速度 ， 我 们 将 引进 下 列 代 入 法 Rw : 


> RW := WIt) = subs(Vx，Vy，sqrt(diff(x(t)， 七 ) “2 
> + diff(y(t)，t)>2)) ; 


RW 一 双人 的 = 人/( 吕 X(0) 一 asin(glb)( 计 60))2 十 (( 汪 Y(D)+acos(d(6)( 叶 下 )) 


8 
Dazial := 元 %() = (1.13) 
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下 列 语句 生成 系统 (1.7) 


> qx := diff(x(t)，t) = WCt)/a*r(XCt) - x(t)) ; 


> qy := diff(y(t)，t) = WEt)Vayr(Y(t) -~- 了 (tt)) ; 
WOCGGO-xG) 

qz :一 页 天 ( 轴 : 关 
WOdGG 一 yG) 
人 


通过 消去 (和 2Yy(b, 我 们 引进 新 的 变量 和 导数 ， 并 且 我 们 对 两 个 方程 取 平 方 , 从 而 去 掉 平 方 根 . 


subs(RW，Vx，Rx，map(a -> u"2，qx)); 
subs(RW，Vy，RyY，map(u -> 2，qy)) ; 


一 -一 
区 


> Qy : 


qz := (二 7 六 () 一 = gb)))2 = 
KG 入 ( 世 ) 一 Qsin( 由 (区 ) z 约 (的 )) 十 (二 Y 人 的 ) + acos(g() ( 志 7 风 ( 鸭 )) ) cos( 罗 ()) 
9y :一 ( Y(D)) 十 acos(%(b) ( 宁 4 4(t))) = 
((( 吉 区 (一 Qsin( 人 (t)) ( 呈 4)) 浊 (二 TY 人 () 十 acos(g) (所 风 ()) ) sin( 罗 (的 ) 
我 们 硕 望 证 明 两 个 方程 是 相同 的 ， 这 样 系统 将 简化 为 一 个 关于 4 上 的 微分 方程 ， 为 此 我 们 做 下 列 


的 代入 : 
> Subst := [rhs(CVx) = A， ee = B， F] ; 


5u0st :一 [人 多 (四 ) 一 Qsin(9(t) (二 ft 划 ) = 4， (二 (所 ) 十 @cos( 风 人 (二 %(t) 一 一 了 | 


> qtx := expand(subs(Subst，qx) ) ; 
> qly := expand(subs(Subst，qy) ) ; 


91z :一 42 一 cos( 百 ) 42 十 cos( 五 ) 互 ” 
q1V := 2? 一 sin( 开 )2 42 十 sin(F)2? 
为 了 证 明 方 程 实 际 上 是 相同 的 ， 通 过 集中 4 和 已 项 ， 简 化 方程 . 


> qlx := A”2*Sin(F)” 2 = B”2+rcos(F)”2; 
> qty := B”2*xcos(F)*2 = A”2*sin(F) ”2; 
d17 := sin( 玉 ) 42 = cos( 珀 ) 奋 
9q18 := cos( 瑚 ) 互 2 一 sin( 瑟 )2 4? 
因此 和 它们 是 相同 的 . 我 们 用 第 一 个 进行 计算 ， 并 去 掉 平 方 、 代 入 . 通过 求解 几 b) 的 导数 ， 我 们 得 
到 所 求 的 微分 方程 : 


> Qi := map(u -> simplify(Csqrt(a) ，symbolic)，qlLx) ; 
QI := sin( 忆 ) 4 = cos( 下 ) 号 
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> BackSubst := [seq(Crhs(op(i，Subst)) = LIhs(op(i， Subst))，i = 1..nops(Subst))]; 


五 acKotBSt :一 
[= (于 XG) -asin(f())( 吕 和 9) 互 = ( 呈 Y(GO) +acos(dG)( 守 共 9) 三 = 4 


> QQ2 := subs(BackSubst，Qt) ; 


sin(g(b) (于 X() -osin(d(D)( 却 90)) = cos(b(b) (3 Y(GD) +acostg(6) (3 4)) 


> Daxial := Qiff(phi(t)，t) = simplify(solve(Q2，diff(Pphi(t)， 七 ) )) ; 
一 cos(4b)( 瘟 了 的 ) 十 sin(%(9)( 闽 和) 


代 


也 azzal :一 二 人 二 


值得 注意 ， 对 于 慢跑 者 / 狗 问题 ， 在 含有 4%L) 的 微分 方程 里 ， 用 常数 o 代替 函数 of(b), 我 们 将 得 到 
相同 的 方程 . 


1.8 例子 


电 于 微分 方程 系统 已 经 简化 成 一 个 方程 ， 所 以 对 于 某 些 情况 ， 我 们 希望 得 到 解析 解 . 首先 ， 
第 一 个 例子 是 小 该 在 一 个 贺 上 行走 . 
> Child_Subst := XLt) = RyCcos(omnegar+t)，Y(It) = R*+sinComegay 上 ) ; 


Chzld_Subst :一 六 (t) 一 严 cos(w 胃 YY( 共 三 玉 sin(w 办 


> Das := subs(Cchildq_Subst ，PDaxialy): 


一 cos[g 人 (四 ) ( 葛 玉 sinfwt)) 十 sin(g)( 各 尺 cos(w 昌 ) 


D 
Zas := 误 gt) 一 


> Das := combine(Das，trig); 


_ 力 wcos( 一 gt 十 of 
Q 


8 
吃 as := 部 风化) 一 


> Sol := dsolve(Das，Phi(t)); 
人 
人 
V(a 二 也 (aa 一 已) 
0 :一 2 7 了 
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我 们 得 到 一 个 解析 的 表达 式 ! 由 一 个 隐 式 方程 给 出 函数 汐 . 因此 ， 对 于 给 定 的 初始 条 件 ， MAPLE 
不 能 解 此 微分 方程 . 虽然 在 上 面 的 方程 里 ， solve 命令 不 能 求解 Y(), 但 可 用 手工 求解 . 因为 对 于 
这 种 特 丈 情况， 确定 积分 常数 更 为 简单 ， 所 以 在 这 里 我 们 不 解 它 

为 了 重新 给 出 图 1.3 中 的 轨迹 ， 我 们 引入 初始 条 件 ; 


> IniSol := eval(subs(t = 0，Phi(0O) = alpha，Sol)) ; 
(a 一 卫 ) tan(5 ar) 
V(a 十 忍 ) (a 一 玉 ) 


71720901 : 王 一 2 一 一 一 一 一 一 一 一 一 -CT 
7 


arctaIL 


现在 我 们 求解 特 解 (利用 MAPLE ): 


Sol := map(u -> (u + t/omega)*sqrt(a ”2 - R-2)*omega`2/a/2，Sol) : 
Sol := map(ua -> tan(u)*sqrt((a + R)*(a - R))V(a - R)，Sol): 

Sol := simplify(mnap(u -> arctan(u) ，Sol)，symbolic) : 

_C1 := lhs(IniSol) : 

Sol := map(u -> 〈(-2*u + omegay*t) ，Sol) : 


对 于 图 1.3, 我 们 确定 初始 角 a : 
> Sol10 := eval(subs(alpha = 0，Sol)) ; 


tan( YY 一 一 ) V(a 十 瑟 )(a 一 玉 


ol0 := 0( 蕊 王 一 t > t 
0 几 ( 世 ) 2 arctan 下 十 w 


VVVVY 


我 们 希望 令 棒 的 长 ao 等 于 圆 的 半径 尺 , 简单 的 替代 是 不 可 能 的 ， 我 们 必须 计算 ae 一 玉 的 极限 : 


> Sol00 := lhs(Sol0) = Limit(rhs(Sol0)，a = R，)?1eft)): 
> Sol00 := Simplify (Sol00，SsSymbolicy) ; 


9ol00 := 0 引 三 一 2arctan(wt 十 必 世 


> Toy := [x(t)，y(t)] : 
> Toy_Plot := subs(RXx，Ry，Child_Subst，Sol00，omega = 1， 
> a=RR=5，rToyD ,tt 上 = 0..40]); 


Toy_-Piot := [5cos( 切 十 5cos( 一 2arctan(t) 十 t,5sin(t) 十 5sin( 一 2arctan(t) 十 丰 , 寺 一 0..40] 


> Pilot(Toy_Plot，scaling = conSstIained，color = black) ; 


我 们 得 到 与 图 1.3 同样 的 图 形 . 用 下 列 语句 可 得 图 1.5 : 


> Soll15 := eval(subs(alpha = arctan(-2)+PiIi，So1l)) : 

> Toy_Plot := subs(Rx，Ry，Child_Subst，Sol15，omega = 1， 

> a = Sqrtk(l25)，R= 5，f[ToyD , 芋 = 0..200]): 
>  Plot(Toy_Plot，scaling = constrained，color = black) ; 


最 后 ， 我 们 计算 第 一 个 例子 中 变量 的 轨迹 ， 并 考虑 棒 比 圆 的 半径 短 的 情况 ; 


> Soll evalc(Sol0) : 
> Soll := evalc(subs(signum(a`2 - R"2) = -1，So11)) : 
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> SolL1 := subs(abs(a”`2 -~- R"2) = R"2 -~- ar 2，SolLt) ， 


ooll :一 由 (tj 一 2arct 
oO 中 人) arctan 上 TREE 2 


> Toy_Plot := subs(Rx，RyY，Child_Subst，Sol1，ocomega = 1， 


汉 a=4.95,R=5，[Troy 站 ,tt 上 = 0..40j): 
>  Plot(Toy_P1ot，scaling = constrained，color = blacKk) ; 
图 1.11 给 出 此 轨迹 . 


图 1.11 a < 时 玩具 的 轨道 


注意 ， 如 果 小 孩 在 直线 上 行走 , 则 有 一 个 解析 解 : 等 切面 曲线 ， 如 本 章 第 一 节 所 示 . 令 (Xo,yo) 
是 小 孩 的 初始 位 置 ， (, 风 ) 是 他 的 恒定 速度 向 量 ; 
> a:= "a: VX := 'VX: VyY := Vy7:: 
> Child_Subst := XCt) = Xo + VX*y 七 ， YIt) = Yo + VVY*# 七 : 
> Das := combine(subs(Child_Subst，Daxial)); 
一 cos(b()) Vy 十 sin((t))Yz 


逮 


Das := 二 ti) 一 


> Sol := dsolve(Das ，Phi(t)) ; 


1 2 也 tan(5 8 的 ) 十 2 W 
5 
重复 前 面 的 小 孩 在 圆 上 行走 的 情况 ， 我 们 又 得 到 鸭 的 一 个 隐 枉 数 . 


总 之 ， 对 于 玩具 的 轨迹 ， 不 太 可 能 得 到 一 个 解析 解 . 如 果 考 虑 小 孩 在 正弦 曲线 上 行走 ， 则 只 能 
数值 地 计算 玩具 的 轨迹 . 


> X:= 七 -> tt: YY := 七 -> 5*yksin(t): a:= 10: 
> Daxial: 


亲 4 人 (t) 一 -5 cos(gtt)j) cos( 上 十 亏 sin( 吵 ( 芭 )) 


> 了 FF := dsolve({Daxial，Phi(C0) = PiIV/2}，Phi(t)，Dnumeric) ; 
厂 := Proc(rkff5_z) .. .end 
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因为 此 图 形 与 图 1.4 相同 ， 所 以 此 处 没有 给 出 . 然而 我 们 将 增加 一 些 命 令 ， 以 便 在 屏幕 上 动态 地 显 
示 这 些 运动 . 注意 ， 这 里 还 无 法 用 animate 命令 . 
我 们 想 看 棒 的 运动 ， 以 及 它 两 端的 运动 轨迹 .一端 必须 沿 正弦 曲线 移动 ， 另 一 端 将 描述 所 计 

算 的 轨迹 .我 们 希望 看 到 ， 在 了 工 秒 内 绘 出 N 个 点 序列 过 程 的 片段 . 

> 工 := 6yrPi: 人 := 200: 工 := 3: 

> SF := [evalf(seq(Crhs(F(CT*xiVN) [2])，i = 0..N))]: 

> ST := [evalf(seq(T*xi/N，i= 0. .N))]: 

> plot([seq(CLX(GST[i]) + Lrcos(SF[i])，Y(ST[i]) + Lrsin(SF[i])]，i =t.,N)])， 


上 面 最 后 的 MAPLE 命令 将 显示 此 轨迹 . 为 了 此 片段 ， 我 们 必须 准备 和 存储 绘图 点 列 ， 该 点 列 是 由 
递增 数 给 出 的 . 


> TS := [seq(op(T1，Pplot([seq([XCST[i]) + Lrcos(SF[i]y) ， 

> Y(ST[Iij) + Lrsin(SF[i]7)] ，i = 1..j)j))，j = 1..N)]: 

> BS := [seq(Cop(1，Pplot([[XGST[i])，Y(CST[i])] ， 

> [X(ST[i]) + L*cos(SF[i])，Y(ST[i]) + Lxsin(SF[i])]]))， 
> iz=1. .N7] : 

> PS := [seq(op(1，Plot([seq([XCST[Iilj)，Y(ST[i])]， 

> 


i = 1..j)]))，j = 1..N)]: 


序列 了 3 包含 了 轨迹 的 信息 ， 它 存储 从 1 到 六 的 个 部 分 图 形 点 . 序列 B5 描述 棒 的 位 置 . 
PS 提 述 正弦 轨迹 ， 它 的 结构 类 似 于 了 S. 


现在 用 命令 
> PLOTCANIMATE(seq([TS[Li] ，BS[i] ，PS[i]]，i=1..N)) ， 
.> AXESLABELS(x，y) ，VIEW(-2..X(ST[IN] ) ，DEFAULT) ) ; 
可 看 到 整个 过 程 . 
参考 文献 


UL 瑟 . 了 AIRER，S.P. NORSETT AND G. WANNER，3Soluing Ordinary Difrerential Equations 了 Springer-Verlag 
Berlin Heidelberg，1987. 
[2?] 五. HEUSER，GCewOohnliiche Direrentialgleichaungen 了 G. Teubner, Stuttgart，1989. 





旋转 网 球 的 轨迹 


第 二 章 
厂 .下 LOQ730 


考虑 一 个 质量 为 mm, 直径 为 d 的 网 球 ,， 在 靠近 地 球 表面 的 空中 运动 . 此 球 以 角速度 w， 旋转 (向 
量 w%g 有 旋转 轴 的 方向 和 大 小 w= dep(by/dt = 9(, 其 中 wp(b 是 旋转 的 角度 ). 我 们 将 笛 卡 儿 坐 标 系 


(zyz) 放 在 地 球 的 表面 ， 其 中 z 轴 为 垂直 方向 . 
图 2.1 旋转 网 球 在 空气 中 的 移动 





我 们 把 网 球 看 成 一 个 质点 ， 它 在 下 列 一 些 力 的 作用 下 运动 (参见 图 2.1) 
(2.1) 


。 重 力 G=mm 9, 其 中 9= (0,0,-9) 是 重力 加 速度 向 量 . 
。 拉 力 万 = -Dr(o) v /ou, 它 与 速度 V 的 方向 相反 . 


。Magnus 力 M= Mr 马 /wx 了 /ui 此 力 垂直 于 立 和 马 
拉力 的 大 小 Pr(v) 和 Magnus 力 的 大 小 Mrz(u), 通常 假设 由 理想 的 流体 理论 出 给 出 : 
Dr(u) 
Afr(v) CM 订 T 
其 中 p 是 空气 密度 . 对 于 实际 的 流体 (空气 ), 系数 Cop 和 Cxw 依赖 于 速度 v, 球 的 旋转 和 它 的 表面 


材料 . 通常 我 们 由 实验 得 到 这 些 系数 . 
j2] 报告 了 旋转 网 球 的 实验 结果 . 实验 结果 表明 ， 对 于 一 个 逼 记 ve [13.6,28][ms-!] 和 球 的 转 
数 me [800,3250jrprn 的 网 球 ， 系 数 Cp 和 CM 只 依赖 于 v/w, 其 中 几 = d/2. 在 某 种 意义 上 ， 
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| 蕊 x 了 /ul 是 转 球 赤道 的 速度 wd/2 在 速度 向 量 Y 上 的 投影 ， 下 面 是 系数 的 表达 式 : 


亿 记 


| 


2/5 
0.508 十 二 二 了 
22.053 十 4.196( 世 ) ( 22] 
1 


人 > ee 
人 2.022 寸 0.981( 之 ) 


对 于 网 球 ， 我 们 可 以 忽略 球 旋 转 的 减速 度 ， 因 此 凤 是 常数 . 
于 是 ， 由 位 置 向 量 7 ( 妇 的 Newton 方程 ， 可 定义 球 的 轨道 


qd27 人 
dt2 


一 


一 ?7 Cl 
一 1 .9 一 人 7 一 十 Ah7r 一 X 
人 Co 





一 全 
人 
人 2 > 
了 


其 中 初始 条 件 为 
字 (0) 7 和 二 0) 2 
方程 (2.3) 是 三 个 微分 方程 的 非 线性 系统 ， 不 存在 解析 解 ， 因 此 我 们 必须 数值 地 求解 . 
实际 上 , 大 多 数 情况 是 高 速 旋转 的 高 球 ,角速度 向 量 位 于 在 水 平面 内 ， 并 且 垂 直 于 向 量 yo, 由 
方程 (2.3), 对 于 上 > 0, 它 也 垂直 于 v 上 , 因此 轨道 在 垂直 平面 内 ， 选取 z 轴 在 此 平面 内 ， 于 是 方 
程 (2.3) 的 最 后 形式 是 
大 一 一 CDQUZ 二 TCM QTLZ 


.: (2.4) 
2 一 一 9 一 CDQaUZz 一 TCM QuUE 


其 路 = V22+2 庆 和 a= (prd2)/(8m). 参数 7 = 士 1 描述 旋转 的 方向 (对 于 高 速 旋 转 ，7 = 1 
对 于 上 = 0, 我 们 取 初 始 条 件 


z(0) 一 0，z(0) = 王 凡 2z(0) = vo cos(8)，z(0) = vo sin(V) (2.5) 


其 中 wm 是 初始 速度 向 量 好 的 大 小 ，4 是 三 与 z 轴 之 间 的 夹 角 . 


2.2 MAPLE 解法 


为 了 说 明 拉 力 和 Magnus 力 对 球 的 轨迹 的 影响 ， 我 们 将 考虑 三 种 模型 : 在 真空 中 的 球 ,在 空气 
中 没有 旋转 的 球 ， 和 在 空气 中 旋转 的 球 . 
在 真空 中 的 球 

在 真空 中 ， 只 有 重力 作用 在 球 上 ， 方 程 (2.4) 有 一 个 非常 简单 的 形式 


站 一 0， 记 = 一 9. (2.6) 


MAPLE 用 郴 数 dasolve 求解 (2.6) 的 通 解 : 


# motion of ball in Vacuum 
eqnid := diff(x(t) ，t$2) = 0，dqifft(Z(t) ,t$2) = -g: 
varid := {x(t)，Z(t) 上 上: 
initcid := x(O) = 0，ZzZ(O) = B， 
D(x) (0) = VO*rcos (theta)，D(z)(0) = vO*rsin(theta) : 


YYVVVYV 
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> #SolLution for ball in Vacuum 
> TIresid := dsolve({feqnid，initcid}j，varidy) ; 


resid :一 {x(t 三 上 tv0cos(9), zt) 一 瑚 十 上 20sin(O) 一 让 9} 
注意 ， 函 数 dsolve 以 方程 组 的 形式 


(varmzazmae) 一 《ezZD7ess1072) 
返回 解 (resvwti), 因此 没有 定义 这 些 方程 的 顺序 .为 了 访问 对 应 (varnarne) 的 解 ， 我 们 将 用 天 数 


Subs((7esz1t) (Var72aQ72e )). 


在 空气 中 的 球 


对 于 在 空气 中 的 球 , 我 们 不 能 解析 地 求解 方程 (2.4), 必须 用 数值 解法 . 因为 后 面 要 用 到 Newton 
法 计算 飞行 时 间 ， 我 们 需要 z( 人 bb) 的 导数 ， 因 此 将 二 阶 微分 方程 组 (2.4) 转变 成 一 阶 微分 方程 组 ， 
(用 变量 vc 和 vz 分 别 表 示 速 度 之 和 了 2)， 


Re 
oo 一 一 Crau .ua 十 ICMCQU .1V: (2.7) 
有 
uUz 一 一 9 一 CI1QU .UVUz 一 TCMCQU :Var 
其 中 履 = vVu2 十 uv2. 初始 条 件 (2.5) 为 
z(0) 王 0，z(0) 一 凡 ，vz(0) 一 vo cos(9)，vz(0) 一 Vo sin(V). (2.8) 


我 们 将 用 SI 单位 系统 ， 参 数 的 数值 是 9 = 9.81[ms-l]， 网 球 的 直径 4 = 0.063{m], 其 质量 m = 
0.05[kgj, 空气 密度 p = 1.29[kgm-3], 我 们 选取 初始 条 件 


彤 一 1[m]j，vo = 25 [ms 一 ], 2 =15? 


和 球 旋转 的 参数 风 = 20 [ms-!] 和 了 =1( 高 速 旋转 ), 用 MAPLE 语句 求解 此 问题 : 如 下 所 示 . 


> # Dumeric SolutionD of bal]l in air 

> # Basic constants jn SI Units 

> gg :=9.81: # gravitational acceJeration: 

> QQ:=0.063: mm := 0.05: # diamneter and mass of ball 
> rov := 1.29: # density of ai 

> alpha := evalf(Pi*d~2/(8*m)*LOoV) : 

> V:= (dx”2 + dz”`2)”~(1/2): # definition of velocity 
> Cd := .508+1/(22.503 + 4.196/(CwAvt))” (5/2))、 (2/5) : 
>  Cm := eta/(2.202 + .981/(w/v(t))) : 

> # eta =+-1 adQeftines qirection of rotation， 
> # [or top SPinning eta = 1| 

> var := {x(t)，z(t)，dx(t)，dz(t) 上 : 

> # initial conditions 


1 此 例子 已 用 MAPLE V Release 3 测试 过 
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MYMYMVYMVYVMMYMVYMVMYVMVMYMMYMMYMVYMMYMMYVMVYVVYVMVV YV 


:ni 上 tc 


eqnto0 : 


eqntil : 


TesSoO  : 


:= X(O) = 0，zk(0) = 上， 


dx(0) = vO*rcos (theta) ，dqz(0) = v0O*xsin(theta) : 
# _ equations of motion of ball iD ai 
# Totation (drag force only) 
diff(xGt) ,t) = dx(t) ， 
diff(dx(t) ,t)= -0.508*alpha*rdx(t)*V(t) ， 
diff(z(t),t) = dz(t) ， 
diff(dqz(t) ,t)= -g-0.508*alpha+rqz(t)*V(t) : 
# _ equations of motiona of rotating ball in ai 
# 〈influence of Magnus effect) 
diff(x(Gt),t) = dx(t) ， 
diff(dqx(t),t)= (-Cdyxdx(t) + Cmrdz(t) )*alphayv(t) ， 
diff(zktt) ,t) = dz(t) ， 
diff(dqz(t) ,t)= -~g-(Cdrdz(t) + Cmkrdx(t))*alphayV( 七 ) : 
#numeric Values of jinitial Parameters 
v0 := 25: theta := Pi/180*15: # theta= 15 degrees 
eta := 1 二: 
# Solution for Don ITotating ball 
dsolve ({eqnt0 ,initc},var ,numeric) ; 


res0 := Proc(rk1f5_z) ... end 


# ITesujlt iis a Set of equations 


reSs0(0.5) ; 


reSsl : 


丰 王 .5, x(t) 三 10.76902243898168, zlt) = 2.745476721738618， 
dx(t) 一 19.31511754217100, dz(t) 一 .7584804887012169] 


# solution for Totating ball 
dsolve({eqntl1，initc}+，var，Dnumneric) ; 


resl : Proc(rkfhf5_z) ... end 


. 并 Lva7ia 


函数 dsolve(... ，numeric) 返回 带 一 个 参数 (独立 变量 ) 的 函数 . 调用 此 函数 得 到 一 组 方程 


(在 此 情况 下 ， 变 量 是 己 z 的 ;z(bvz(tvz(t 芍 ). 为 了 访问 数值 ， 我 们 仍 用 天 数 subs. 


绘制 


图 形 


(Variable) 一 (Valuey》 


作为 解法 的 最 后 部 分 ， 我 们 将 在 同一 图 中 ， 画 出 三 个 模型 的 轨道 . 为 此 我 们 必须 解 一 个 求 飞 
行 时 间 (方程 zx 所 =0 的 解 ) 的 子 问 题 ， 


之 
之 
之 


为 了 计算 真空 中 球 的 飞行 时 间 tmazid, 我 们 用 (2.6) 的 符号 解 resia 和 郴 数 fsolve. 


tmaxidQ 


# Calculation of tmax -~ time of fal1ing to earthb 
# for bal]l1 in Vacuum 


:= fsolvek(sSubs(resid，zZ(t)) = 0，,t 上 七 =0..5); 


tmaztzd :一 1.458903640 





第 二 章 旋转 网 球 的 轨迹 27 


在 其 它 情 况 下 ， 因 为 通过 对 微分 方程 积分 ， 可 得 到 z 的 导数 vz, 所 以 我 们 容易 用 Newton 法 求解 方 
程 z( = 0. 于 是 方程 z( 区 = 0 的 近似 解 的 递 推 关 系 是 


tm (2.9) 


tm 十 1 一 tn 一 1 (t ) 
之 7 


算法 2.1 了 马 数 zzero 


ZzZero := proc (ua，t0，ZzZ，dz) local tn，ts，Up; 


# find root of z(t) = Subs(CuGt)，zZ) = 0 
# Using Newton method 
# using diftf(z，t) = subs(CuGt) ，dz) 

tn := to;i tsS := 0.0; 

while abs(( 人 (ta - ts)/tn) > 10”(-4) do; 


tS := 七 也 ; 

up := Cts) ; 

tn := ts -~ subs(ap，z)/subs(Gup，dz) ; 
cd ; 
七 卫 ; 


end ; 


我 们 可 用 tmazia 作为 初始 近似 解 如 . MAPLE 函数 zzero 实现 此 Newton 友人 代 (参见 算法 2.1). 


>> 


# calcllation of the flLight time for the other models 


> “tmax0:= ZZerofTres0，tmaxid，z(t)，dz(t)) ; 
> tmaxl:= ZZero(res1，tmaxid，z(t)，dz(t) ) ; 


trmazZz0 := 一 1.362013689 
trmnazl :一 .9472277855 


为 了 从 数值 解 生 成 空气 中 球 的 轨道 ， 最 简单 (可 能 最 快 ) 的 方法 是 用 一 个 数组 [z( 基 ), z( 坊 )] 作为 函数 
Plot 的 输入 参数 ， 对 于 一 个 具有 常数 时 间 步 长 的 区 间 ， 为 了 从 dsolve(... ，numeric) 的 结果 得 
到 此 数组 ， 我 们 定义 简单 函数 taalepar. 为 了 产生 红 ， 蓝 ， 黑 色 的 图 形 ， 剩 余 的 MAPLE 语句 是 


YYVYMYMVYMVMYMMYMVMYMVYMVVVYVYVY 


# making graphs : 


Gid := plot([subs(resid，x(t))，subs(resid，z(t)) ， 
t = 0..tmaxid] ，1inestyle = 2) : 
# for models with numeric solution 
# calculation of tables [x(t) ,z(t)] for PlLotting 
tablepar := Proc(u，x，y，xmnin，Xxmax，hnhpoints) local i,Step; 
Step := (xmax - xmin)Vnpoints ; 
[seq([subs(u(xmin + i*Step) ，x) ，subs(u(Cxmnin + ji*Step) ,y)] ， 
ii=0 .. npoints)] 
end : 
G0 := plot(tablepar(res0，xXx(t)，z(t)，0，tmax0O，15) ， 
linesty]le = 3) : 
G1L := plot(tablepar(resl1，x(t) ，z(t) ，0，tmaxl，15) ， 
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> 1Linestyle = 1) : 
> # PJlotting of alLl Eraphs 
> Plots[display]j({fGid，GO，G11) ; 


用 MATLAB 计算 轨道 ， 可 得 到 相同 的 这 些 图 形 (参见 图 2.2). 


算法 2.2 必要 的 M 函数 集合 
function xdot= tennisip(t,Xx,flag) 


gJLobal 区 

xdot = [ x(C3) 
X(4) 
O 


-gg ]; 
function xdot= tennisOp (七 , 工 ) 
glLobal 名 alLPha 
vV= SqIrt(CXx(3) ”2+Xx(4) 2) ; 
xdot= [ X(3) 
X(4) 
-alPha*yrO.508*#X(3) 冰 V 
-g-alLpPha*r0.508*x(4)*V ] ; 


function xdot= tennislp(tt;,X) 
glLobalL gg alpha WwW etha 
V = sqrt(x(3) ”2 + X(C4) ”>2) ; 
cd = (0.508 + 1/(22.503 + 4.196*(V/w) “0.4))*alpbhayrV; 
Cm = etha*wW/(2.022*xw + 0.981*V) 冰 3a1LPhayV 
xdot = [ X(3) 
X(4) 
-Cd*x(3) + CmyX(4) 
-g-Cdq+rx(4) -~ Cm+rX(3) ] ; 


2.3 MATLAB 解法 


由 于 问题 是 非 线性 的 ， 我 们 必须 用 数值 方法 求解 . 象 MATLAB 这 样 的 数值 系统 比 符号 系统 更 
合适 . 因此 我 们 将 用 MATLAB 求解 问题 . 
为 了 求解 ”个 微分 方程 的 系统 的 初 值 问 题 


)， (2.10) 


其 中 了 = (zlza……,zn), 我 们 用 MATLAB 函数 ode23( 或 ode45), 实现 2 阶 和 3 阶 (或 4 阶 和 5 阶 ) 
的 嵌入 式 Runge-Kutta 方法 . 
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我 们 必须 对 每 个 模型 定义 M 函数 ， 以 实现 微分 方程 系统 (2.10). 为 了 在 M 文件 之 间 传 递 参数 
9,ow 和 7, 在 我 们 的 程序 中 ， 定 义 它 们 为 全 局 变量 . 用 如 下 映射 


Z 一 2Z(1)，z 一 2(2)，vz 一 Z(3)，vz 一 Z(4). 


所 需 的 M 文件 在 算法 (2.2) 中 . 

在 下 面 主 程序 中 ， 我 们 计算 和 绘制 所 有 三 个 模型 的 轨道 (参见 图 2.2). 为 了 画 出 球 在 空气 中 的 
轨道 ， 计 算 一 个 充分 密集 的 表 [zi zj], 我 们 用 z = z(z) 的 100 个 解 点 作 样 条 函数 捅 值 ， 所 用 天 数 为 
SP1LiIne. 

>> ph Trajectory of spinning tennis ball 

>> Ah initialization 

>> glLobal E alpha WwW eta 

>> hh _ basic constants in MKS units 

>>gE = 9.81; d = 0.063; m = 0.05; rho = 1.29 

>> alpha = Pi*d>~2/(8*xm) *rho ; 

>> eta = 二; 

>> 由 = 20; 

>> 内 _ initial condGitiocons 

>> hb = 1; v0O = 25; theta = Pi/180*15; 

>> xin = [0，h，v0orcos(theta) ，vO*sin(theta)]; 

>> Ah 革 Light time for Vacuum 

>> tmaxid = (xin(4) + sqrt(xin(4) ”2 + 2*+g#Xin(2) ))V/gE; 

>> hh solution in Vacuum 

>> [tid，xid]j = ode23(?tennisip，，[LO tmaxid]j ，Xiny) ; 

>> hk SolLution without spPizn 

>> [ft0，Xx0] = ode23(:tennis0p:，[0 tmaxid] ，xiny) ; 

>> hp _ Solution with spin 

>> [tl1，xl] = ode23()?tennis1lp，，[LO tmaxid] ，Xiny) ; 

>> N = max(xid(:,1)); 区 = 0:N/100:N; 

>> axis([0，max(xid(:,1))，0 ，max(xid(: ,2))]) 

>> hold on; 

>> Plot(x，sPLine(xid(:,1)，xid(:,2)，X)， ?2 :IT)); 

>> Plot(xX，spPLine(x0(: ,1)，Xx0(:,2) ，X)，:--b?) ; 

>> plot(x，sPLine(x1l(:,1)，xl1(:,，2)，X)， -WwW)); 

>> hold off ; 
注意 ， 在 空气 中 的 两 个 模型 ， 我 们 不 必 计 算 飞 行 时 间 . 对 于 最 大 的 轨道 (在 真空 中 的 球 ), 利用 紧 跟 
axis 语句 后 的 hold 语句 ， 轨 道 被 截断 ， 并 且 不 画 出 z 轴 以 下 的 图 形 . 

如 果 和 希望 计算 飞行 时 间 ， 类 似 于 MAPLE 解法 ， 我 们 可 以 求解 . 因为 从 开始 就 必须 对 微分 方程 
组 数值 积分 ， 得 到 函数 值 和 导数 ， 这 种 解法 要 花费 很 多 的 计算 时 间 . 

然而 ， 用 逆反 法 计算 飞行 时 间 的 近似 值 更 简单 . 为 此 我 们 要 找 一 个 时 间 区 间 ， 在 此 区 间 上 郴 
数 是 可 逆 的 . 我 们 取 表 中 的 某 些 值 ， 在 这 些 值 处 ， 轨 道 的 z 值 是 单调 递减 的 . 这 可 由 本 数 min 和 
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max 完成 : 

>> Ah Determine flLight 七 ime by inverse interpolation 

>> [z,j]j=min(xo(:,2)); [yy,Ii]=max(xo(C: ,2) ) ; 

>> tmax0O = SPline(Cxo(i+1l:j,2)，to(Ci+l:j)，0) 

>> [zZ,jj=min(Cxl(:,2)); [yy,i]=max(xl(: ,2)); 

>> tmax1l1 = SPline(x1l(i+1:j,2)，tti(i+l:j)，0) 
为 了 使 区 域 zG+1 :7) 是 单调 的 ， 我 们 取 第 《+ 1) 个 点 为 xz 的 单调 区 域 的 第 一 个 点 . 于 是 得 到 飞 
行 时 间 的 近似 值 如 aro 三 1.3620 和 tazl = 0.9193, 比 MAPLE 的 结果 好 . 


图 2.2 





2.4 MATLAB 5 更 简单 的 解法 


MATLAB 5 允许 对 微分 方程 求 积 ， 直 到 所 得 的 轨道 交 于 z 轴 “, 因此 不 需要 样 条 捅 值 . 根据 第 
一 章 第 7 页 的 解释 ， 为 了 检查 零 交 点 ， 必 须 调整 算法 (2.2) 中 定义 的 M 函数 ; 算法 (2.3) 给 出 修改 
的 M 函数 . 计算 三 个 轨迹 的 主 程序 变 得 更 短 ; 选项 Events 设置 成 on, 使 积分 器 检查 z 轴 的 零 交 
点 ， 如 果 有 一 个 ， 则 停止 积分 , 因此 可 由 积分 器 返回 的 时 间 疝 量 如 和 所 的 最 后 部 分 ， 得 到 轨迹 的 
时 间 . 
算法 2.3 在 MATLAB 5 下 重 写 上 一 节 的 M 文件 

function [xdot ,isterminal ,qirection]= tennisip2(t,Xx,fl1ag) 

glLlobal 如 

if nargin < 3 | isempty(flag) % normal output 


2Leonhbhard Jaschke 给 出 此 解 
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xdot = [fx(3)，x(4) ，0，-g] :; 
elLse 
Switch(flag) 
case :evVvents:， %h at | |Ibhll=0 there is a SinguLarity 
xdot= X(2) ; 


isterminal= 1 ; 


Qirection= 一 1; 
otherwlise 

error([)Unknow flag :flag ::?.:]); 
enDd 


end 


function [xdot ,isterminal ,direction]j= tennis0p2(t,x,flag) 
glLobal gg alLPha 
if nargin < 3 | isempty(flag) 4 normal outpnut 
v= Sqrt(x(3) ”2+X(C4) “2) ; 
xdot = fx(3)，Xx(C4) ， 
-alpha*0.508*Xx(3)*V，-g-alpha+r0O.508*Xx(47*V]: ; 
elLSse 
Switch(f1lIag) 
case :evVvents” % at |1|Ihl1=0 there is a singularity 
Xxdqot= X(2) ; 
Istermjinal= 1]; 
direction= 一 |; 
otherw1lSse 
erIror(['Unknovwn flag :， flag 2? .]j); 
end 


end 


function [xdot ,isterminal ,direction]= tennislp2(t,Xx,f1Lag) 
gz&Lobal g& alLlpha WwW etha 
if nargin < 3 | isempty(flag) A normal outPut 
Vv= sqrt(x(3) ”2+Xx(4) “2) ; 
Cdq=(0.508+1/(22.503+4.196* (V/w) “0.4))*alPhax*Vi; 
Cm=ethaxyxw/ (2 .022*xw+0.981*V)*aLpPhaykV; 
xdot = [x(3) ，X(4) ， 
-Cd*x(3)+Cmrx(4) ，-g-Cd*rx(4)-CmyrXx(C3)] ， ; 
el Se 
SWitch(flagy) 


case :evVents) /at | |Ihlil=0 there is a Singularity 
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xdot= X(2) ; 

1ISsterminal= 1 二; 

GirectiIion= 一 圭 ; 
otherwise 

error([:Unknown flag :， flag ? . ]); 
end 


end 
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积分 器 取 相 当 大 的 积分 步 长 ， 使 得 轨迹 的 图 形 没有 样 条 插值 所 得 的 光滑 . 为 了 使 这 些 轨迹 光滑 ， 
我 们 必须 取 小 步 长 . 用 选项 Maxstep 规定 步 长 的 上 界 来 实现 . 通常 设 此 值 为 时 间 区 间 长 的 十 分 之 


一 .在 下 列 算法 中 ， 我 们 令 它 为 tmaxid/ti00, 可 得 到 如 图 2.2 所 示 的 同样 光滑 的 轨迹 : 


>>>> 
>>> 
>>> 
之 > 
>>> 
>>>> 
>>>> 
之 > 
>>>> 
>> 
之 > 
>>> 
>>> 
>> 
之 > 
>>> 
>>>> 
>>> 
六 > 
之 之 
>>> 
> 之 
>>> 
>>> 
之 之 
之 之 
> 
>>>> 
之 > 
>>> 


% Trajectory of rotating tennis bal] 
% initialization 
g&Lobal g alpha W etha 
gE=9.81;) QQ=0.063;j 了 = 0.05;j rho = 1.29; 
alpPha = Pi*rd>~2/(8*m) +*ITho ; 
etha = 一 主 ; 
WwW = 20; 
X initial conditions 
= 1; VvO = 25; theta = Pi/i80*15; 
xin = [0，h，vOo*rcos(theta) ，Vv0O*#Sin(theta)] 


洒 
1 


% fl1ight 七 ime for Vacuum 
tmaxjid = (Xin(4)+Ssqrt(xin(4) ”~2+2*+gkXin(2)))Vg 

h Setting options for the :integrator 
options=odeset()，Events) ,on ,Maxstep ,tmaxid/100) ; 


wy solution in Vacuum 


[tid，xid]=ode23()'tennisip2，, [0O tmaxid] ,xiDp,options) ; 


solution without spin 


[t0，x0]j = ode23(:tennis0p2，, [0 tmaxid] ,xin,options) ; 


X _ solution with spin 


[t1，xl] = ode23('tennislp2:, [0 tmaxjid]l ,xin,options) ; 


CTf ; 
axis([0,max(xid(: ,1))*1.13,0,max(xid(: ,2))*1.13]) ; 
hold on; 
ELSEKxiats 7 1 2 
DLLt(XO00 TD) XOC 2 DJ 
RS 人 2 
bold off ; 
% fl1ight 七 ime for the tIajectory without SPin 
tmax0 = t0(Length(tO)) 
% flight time for the tIajectory with SPiz 
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>> tmaxl = 上 tlL(l1ength(tily) ) 
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56,1988，pPP. 138-142. 
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这 一 章 我 们 研究 由 两 蔓 路 灯 照 明 的 一 条 水 平 的 道路 ， 其 中 玉 是 路 灯 的 亮度 ， 尾 是 灯 的 禹 度 . 
两 避 路 灯 的 坐标 分 别 是 (0, 六 ma) 和 (s,ha) ， 其 中 s 是 两 灯 之 间 的 水 平 距离 . 令 区 = (z,0) 是 两 灯 之 


3.1 引言 
间 道 路 上 的 一 个 点 . 这 一 章 我 们 将 找 出 具有 最 小 照明 强度 的 点 X. 图 3.1 给 出 了 在 这 一 章 将 要 讨 
论 的 问题 的 一 个 示意 图 . 
图 3.1 道路 照明 问题 示意 图 
P2 
符 
站 
h2 
论 


全 


在 第 一 节 我 们 将 在 给 定 两 灯 的 高 度 和 亮度 的 前 提 下 求 出 X 点 的 位 置 . 第 二 节 我 们 通过 改变 第 
二 坟 灯 的 高 度 以 极 大 化 全 点 的 照明 强度 . 在 最 后 一 节 我 们 还 将 进一步 优化 与 两 灯 高 度 有 关 的 所 


点 的 照明 阿 题 ， 事实 上 ， 我 们 将 通过 改变 两 灯 的 高 度 来 优化 道路 照明 问题 . 


3.2 道路 上 的 最 低 照 明 强 度 的 点 

这 一 节 我 们 将 寻找 两 个 光源 之 间 黑 明 强 度 最 低 的 点 怀 . 由 物理 学 的 知识 可 知 ， 被 光线 照射 的 
物体 的 亮度 依赖 于 它 与 光源 之 间 的 距离 平方 的 倒数 和 光线 的 投射 角度 ， 参 见 f12]. 
从 和 到 第 一 个 光源 的 水 平 距离 是 z ， 到 第 二 个 的 水 平 距离 是 s -~ z. 利用 色 股 定理 我 们 可 以 
r2 一 jz 十 (s 一 补 ) 2. 


确定 点 刁 到 两 个 光源 之 间 的 距离 ri 和 r2 ， 
并 二 由 十 7 ， 
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从 两 蓄 灯 到 X 点 的 光线 强度 分 别 为 

P 局 

如 果 光 线 的 投射 角度 分 别 为 ax 和 az, 道路 的 照明 情况 还 依赖 于 sin al 和 sin az 
闵 1 Phz 


于 是 并 点 的 总 的 照明 强度 C(z) 是 


忆 - 书 


他。 民 +(s 一 z)2 


72(z) = 
sin Cl 一 


疡 六 六 2 


Cl(z) 一 (z)sin al 十 P(zj)sin ao 三 7 十 


对 于 0<z<s, 极 小 化 C(z) 就 得 到 和 点 的 党 标 . 为 了 求 出 极 小 值 ， 可 以 对 C(z) 求 导 并 求 出 它 的 
根 . 我 们 和 莹 试 使 用 MAPLE 来 做 此 事 . 

S[li] := P[1]*h[1]/VGhr1]>2+x>"2)”(3/2) : 

sf[2] := P[2]*h[2]J/(hL2j ”2+(s-X) ”2)”(3/2) : 

C := SIi]+S[2] : 

GC :=diff(C,X) ; 


(3.1) 


VMVVYV 


疡 Pi7 3 媚 Pao( 一 2s 十 2z) 


站 
(Rn55 (po 二 (一 让 5 


> Solve(dC=0 ,Xx) : 


如 果 你 试图 执行 这 个 指令 ， 你 将 会 看 到 MAPLE 决 不 会 给 你 回答 . 使 用 代数 学 的 处 理 方法 ， 方 程 
dC =0 能 够 被 转换 为 关于 z 的 多 项 式 方 程 . 我 们 把 方程 dcC = 0 的 一 项 移 到 方程 的 右 端 ， 两 边 平 
方 ， 再 把 右 端 移 回 左 问 ， 通 分 . 则 分 子 必 须 等 于 零 . . 

> eq := diff(S[t] ，x)”*2 - diff(S[2] ，x)>2; 
Pr 9 肠 ?p22( 一 2s 十 2z)2 


25 
> eq := collect(primpart (numer (eq) ) ,x) ; 
最 后 一 个 指令 的 结果 是 一 个 关于 z 的 12 次 的 多 项 式 ， 
(P212 一 已 2j2)zl2 十 (2P2h2s 一 10P2j3s)zll 十 .一己 2p2 岂 Jo0s2 一 0. (3.2) 


式 中 的 常数 不 确定 时 ， 这 个 多 项 式 很 难 解 出 其 封闭 的 形式 . 

我 们 考虑 如 下 的 数值 : 玉 = 2000[VW 站 ,已 = 3000[W],Aha = 5[m],pa = 6[Im]j,s = 20[mm].， 函数 
C(z),C'(z) 三 dC, Si(z) 和 S2z(z)( 每 一 慢 灯 分 别 投射 到 道路 上 的 照明 强度 ) 可 以 使 用 MAPLE 在 图 
上 绘制 出 来 ( 见 图 3.2). 从 图 上 可 以 辨别 出 包含 本 数 C'(z) 的 零点 的 区 间 . 我 们 将 在 这 个 区 间 上 用 
fsolve 求 出 并 的 数值 . 

> P[tj := 2000: Pl2] := 3000: ss := 20: hri] := 5: hr[2]:=6: 
> plot({C，S[1]，St2] ，dC}+，x = -s/2..s*3/2) ; 
>  Xn := fsolve(dC=0,X，5..10); 

AX7ma :一 9.338299136 
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图 3.2 道路 上 不 同位 置 的 照明 强度 





> CCmin := subs(x = Xm，C) ; 
Coypin :一 18.24392572 


fsolve(S[t = Sf2]，x，0..s); 
Xe :一 9.003061731 


V 

4 

刷 

出 


> GX := Xmn ~- Xei 
dxX :一 .335237405 


十 分 有 趣 的 是 ，X 点 的 位 置 不 同 于 两 乾 灯 照明 强度 相等 的 re 点 的 位 置 . 
对 于 这 个 数值 例子 ， 我 们 也 能 够 直接 确定 点 刁 . 我 们 可 以 把 命令 solve 应 用 于 方程 (3.2) 以 得 
到 整 系数 12 次 多 项 式 的 代数 根 ， 有 若干 实数 解 在 两 个 光源 之 问 ， 


> solve(eq，xX) ; 


RootOf(56 -Z12 + 1760 -Z1 -- 411975 -Z ”十 24315000 .Za -886167750 _25 
十 22194630000 -Z  - 388140507750 _.G6 十 4698666870000 -25 -- 37664582848875 呈 Z 和 
十 180676117955000 -Z3 一 393823660188775 .72 _ 31640625000 .2 十 316406250000) 


> selecttt-> type(t，numeric) and 芋 >0 and 芝 < 8， 
> [fallvalues(")]); 


[.02848997038,，9.338299136， 19.97669581 |] 
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MAPLE 给 出 了 三 个 极 值 ， 还 需要 确定 哪 一 个 是 极 小 值 . 


> map(t -> if subs(xX = 七 diff(dadC，x)) < 0 
> then max else min fi，"); 


[maz，rmzm，7maa] 


> map(t -> Subs(xX = 七 ，C) ，"1) ; 
[81.98104008，18.24392572，84.47655488| 


正如 所 看 到 的 那样 关于 和光 得 到 了 同样 的 结果 ， 即 z = 9.338299136. 要 注意 最 大 照明 强度 的 点 的 位 
置 靠近 两 个 光源 ， 但 不 是 在 它们 的 正 下 方 . 
3.3 改变 /2 以 极 大 化 照明 强度 


在 这 一 节 我 们 使 用 与 上 一 节 相 同 的 数值 ， 但 把 第 二 个 光源 的 高 度 作 为 变量 ， 以 极 大 化 点 扎 的 
照明 强度 .因此 C(z, jp2) 是 两 个 变量 的 函数 . 
作为 第 一 步 ， 我 们 先 求 函 数 z(Pa), 它 满 足 


C(z(jpa), jz) = ro C(z, 疡 2). 


为 此 我 们 从 3[m] 到 9[mj 改变 jz 的 值 ， 同 时 对 于 每 个 za 的 值 反复 求解 与 上 一 节 同 样 的 问题 . 


> hr2] := :Ph[2]:，: 

> H2 := array(0..30): # array for the valtues of hf2] 

> X := array(0..30): # array for the values of x(h[2]) 
> for 1 from 0 to 30 do 

> H2Li]j := 3 + 6*i/30: 

> X[Lij := fsolve(stubs(h[2]=H2[i]，dCc)，Xx，0..s): 

> 0d: 

> H2 := convert(H2，1ist) : 

> XXX := convert(X，1List) : 


图 3.3 是 函数 z(P2z) 的 图 形 ， 它 是 由 如 下 的 命令 得 到 的 : 
定 Plot(zip((h2， X) 一 > [hbh2 ， X] ， H2 ， X) ， 3 9 


我 们 将 把 C(z,j) 绘制 成 三 维 图 ， 同 时 把 空间 曲线 C(z(ha),jpaz) 也 画 在 图 上 ， 这 条 线 上 的 点 
都 具有 最 小 的 照明 度 . 正如 我 们 所 想象 的 那样 ， 这 条 空间 曲线 位 于 C(z,jhaz) 的 谷底 . 


f := UnapPly(C，X，hL2]) : 

cu := [seqgqg([X[i] ，H2[i] ，f(X[i]，8H2[i])]，i=1..31)] : 

with(Plots) : 

PL1 := Spacecurve(Cu，thickness = 2) : 

PL2 PLot3d(subs(h[2] = h2 ,C)，Xx = -S/2..3*yS/2，h2 = 3. .9， 
style = Vireframe) : 

display({PLt，PL2}) ; 


第 二 步 我 们 求 出 曲线 zhaz) 上 最 大 照明 度 的 点 . 这 个 点 在 函数 C(z,jaz) 的 稳定 点 当中 ， 也 就 
是 说 在 函数 C(z,hz) 的 梯度 等 于 零 的 点 当中 . 


VMVVMVVYVV YXVY 
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图 3.3 最 小 照明 点 z 的 坐标 ，3<Aha < 和 9. 


98.7 


9.5 


9.4 


> With(linalg) : 
> gg := grad(C，[x，hL2]]7; 


Z 产 2 (一 40 十 2 Z) 
:一 |- 30000 二 一 一 一 4500 -一 一 一 一 一 一 ， 
9 (25 千 2Z2)5/2 (j2” 十 (20 Eee 也 )2)572 
3000 0 六 2 
(Pa22 十 (20 一 )2)372 (Rh2” 十 (20 一 z)2)572 


> Sol := fsolve(fg[i] = 0，g[2] = 0}，fxzx，hLI2]}， 
> {x =0..s5，h[2] = 3..9})7 ; 


9ol := {z 三 9.503151310，Ama 二 7.422392890} 
为 了 检验 这 个 解 是 最 大 的 ， 我 们 观察 函数 C(z,jz) 的 Hessian 抢 阵 在 上 述 操 的 特征 值 . 
> HH := subs(Sol，hessian(C，[x，hr[2]])) ; 
1.056539134 一 .1793442077 


一 .1793442077 ”一 .2536310107 


>  eigenvals(H) ; 


一 .2777372198，1.080645343 


特征 值 的 不 同 的 符号 告诉 我 们 这 个 点 是 函数 的 鞍点 . 因为 五 1,]] = 82C/8z” = 1.06 > 0 这 个 点 在 
z 方向 上 有 极 小 值 ， 同 时 因为 妃 [2,23] = 82C/812 = -0.25 < 0 该 点 在 ja 方向 有 极 大 值 ， 因 此 我 们 
找到 了 所 求 的 点 ， 即 在 所 有 最 小 照明 点 (z(ha),0) 当中 照明 度 最 大 的 点 ， 

注意 到 在 这 个 数值 例子 中 我 们 能 够 关于 ja 解析 地 求解 第 二 个 方程 ga = 0. 





第 三 章 道路 照明 问题 39 


图 3.4 照明 函数 Cr,Az) 


上 1 
一 一 
一 一 一- 一 一 一 





>{solve(Cg[2] = 0，h[2])}; 
{- 二 V3(-20+mj, 了 VE(-20+a] 


这 意味 着 这 个 解 给 出 了 第 二 个 灯 的 最 优 高 度 ， 投 射 角度 aaz 由 下 面 计 算 给 出 
> tan(alpha[2]) = normal(" [1]/(s-x) ) ; 


tan(a2 ) 一 人 V2 


> evalf(arctan(rhs("))) ， 
.6154797085 


> evalf(convert(" ，degrees) ) ; 
35.26438965 degrees 


或 as = 35%15'51.82087. 


3.4 照明 优化 


道路 上 的 照明 均匀 是 非常 重要 的 . 这 个 问题 使 用 点 光源 是 不 能 够 解决 的 . 我 们 将 总 是 在 光源 
下 方 得 到 最 大 的 照明 而 在 它们 之 间 某 处 的 照明 最 小 .但 是 对 于 给 定 亮度 和 给 定 问 隔 的 光源 ， 我 们 
能 够 通过 调整 光源 的 高 度 来 使 最 小 照明 强度 的 点 的 照明 强度 达到 和 最大. 这 一 节 我 们 将 考 虚 这 个 问 
题 . 
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整个 照明 情况 现在 是 一 个 三 个 变量 的 函数 C(z, 各 ,Paz). 与 低 维 的 情况 一 样 ， 最 低 照 明度 的 氮 
仍然 是 由 C 的 梯度 的 根 确定 . 我 们 试图 求 出 它 的 通 解 ;在 MAPLE 中 这 意味 着 没有 指定 我 们 在 数 
值 例 子 中 使 用 的 变量 . 

> Pi] 'P[1]:: Ptf2] := :P[2]，: hrli] := ?hr[i]，: 
> hk2] ' 卫 [2]:: 8 := 8): 
> gg := grad(GC，[x，hr[ij，h[2]]jy); 


0 : 3 丰产 1 3 已 Pa (一 2s 十 27) | 可 局 7 
0 50 (02 《十 了 2)502 
2 刀 /2 


(7 
MAPLE 不 能 够 解析 地 求 出 方程 9 = 0 的 根 . 然而 我 们 能 够 关于 ha 求解 第 二 个 方程 ， 关 于 hPa 求解 
第 三 个 方程 . 
> shl := {fsolve(g[2] = 0，hrt])}; 


1 1 
sh :一 > V2z， V2z} 


> sh2 := {solve(g[3] = 0，h[2])}; 


吸 2 :二 {-5V5(s 一 宁 > V3(s 一 )]} 
我 们 只 对 正 值 感 兴趣 ， 因 为 负 值 解 意味 着 光源 从 下 面 照 明道 路 ， 这 是 十 分 罕见 的 . 
> ho[li] := sht[2]; 


六 ol :一 2 
2 


> ho[2] := sh2[2] ; 
hoz := 5 V5(s 一 可 


注意 到 每 个 灯 的 最 优 高 度 不 依赖 于 光源 的 亮度 . 这 个 结果 定义 了 一 个 几何 ! 因此 投射 角 的 计算 与 
3.3 节 的 计算 相同 ， 也 就 是 说 


尼 
tan al 一 tan as 一 一 al 三 as 一 35?15“51.8028”. 


把 最 优 高 度 带 入 9 我 们 能 够 求 出 所 有 的 解 . 我 们 把 实 解 研 值 给 变量 Xo ， 因 为 只 有 它 有 实际 意 
义 : 


> 


subs(h[1] = hofi]，hLI2] = hoft2] ，g[1]) ; 


4 书 z?vV3 2 书 (s--z)vV3(-2s 十 2z) 
9 (z2)572 9 ((s 一 了 )2)573 


> G:= simplify(Q,symbolic) ; 
和 4 (已 s 一 3 忆 s 7 十 3 sz2 一 书 z3 一 已 z3)vV3 
9 


(s 一 Z)3z3 


一 
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使 用 如 下 命令 可 以 直接 求解 方程 CG = 0. 


> Xsols := [solve(G = 0，x)]; 


石 
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.一 2 T 
Xsols := [( 吧 2 591+ 互 守 ) s, (一 二 兄 2 十 二 5 91 十 万 中居 下 了 VS (和 2 十 台 )) s， 
| 1 疡 
二 
人 二 SR 
万 忆 
0 
(PT+ 玉 )(P 到 5)173 
2\、1/3 
op () 
六 十 大 2 
> Xsol := remove(has，Xsols，I)，; 
2\1/3 
Sol “二 [ 特 一 一 生生 信 和 和 和 和 十 二 
天 十 媚 ( 疡 十 疡 )( 亚 忆 )13 严 十 瑚 


> Xsol := simplLify(Xsol，Ssymbolic) ; 


友 SoL :一 | 一 
| (已 十 杞 ) 忆 23 有 203 


> assune(Pp1>0，P2>0) ; 
> Xo := subs(P[i] = pt-3，P[2] = p2*3，Xsol[li]) : 


> Xe := Simplify(CXo) ; 
二 
DT 十 D2 
> Xo := subs(p1i=P[1]”(1/3) ，p2=P[2]”(1/3) ，Xo) ; 


S 疝 昂 ” 


(一 疡 2/3 有 已 4/3 平 区 三 己 4/3 肠 2/3) 


给 定 已 , 忆 和 s, 使 用 一 些 简 单 的 推导 可 以 得 出 优化 照明 问题 的 几何 结构 及 其 物理 解释 . 


> eqlt := op(1,Q) ”2 = normal(op(2,Q)) ”2; 
16 P2 16 己 ? 
ed :一 一 一 一 一 一 一 一 
27 z6 27 (s 一 2Z)6 


> eq2 := simplify(eq1*27*x>~6y(sS-Xx) ”6/16 ,symbolicy) ; 
eq2 := 一 (s 一 z)6 已 2 一 2z6 忆 ? 


> eq3 := simplify(map(t -> t"(1/6) ，eq2) ，symbolic) ; 


eg3 := (s 一 Z) 下 113 一 了 玉 103 
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图 3.5 Xo 作为 已 和 殊 的 函数 


9. 忆 arto7i， 站 .Gramatz 





最 后 一 步 化 简 是 合理 的 ， 因 为 已 知 妃 , 己 ,z 是 正 的 且 > < s. 所 得 到 的 方程 有 如 下 的 解释 最 小 照 
明 点 的 最 大 照明 度 将 在 这 样 的 点 得 到 ， 只 要 这 个 点 到 两 个 光源 点 之 间距 离 r 和 s - z 的 商 等 于 两 
个 光源 亮度 的 立方 根 之 商 ， 换 名 话说， 如 果 在 某 个 点 上 两 个 光源 照射 的 亮度 的 体 密 度 相 等 ， 则 会 
得 到 最 小 照明 点 中 可 能 最 大 的 照明 强度 .方程 eq3 的 解 也 等 于 Xo. 


以 找 出 五 = 2000 和 了 丈 = 3000 情形 下 的 最 优 高 度 . 


定 
人 
> 


S := 20: 


PJlot3d(subs(PLl] = p1，Pft2] = p2，Xo)，Ppl = 0..2000， 
P2 = 0. .3000，orientation = [110，60] ，axes=BOXED) ; 


P[1] := 2000: P[2] := 3000: xx:= Xo: 
hL[Lli] := ho[rli]; 
V22000LV3 
六 1 :二 10 一 一 一 一 一 一 一 -一 一 
20001/3 十 30001/3 
eVvalf(") ; 
6.593948668 
h[2] := ho[2] ; 
20001/3 


1 
j2 := 了 V2(20 -- 20 


eValLf(n) ; 
7.548186950 


20001/3 十 30001V3 ) 


在 s=20 的 情形 下 ， 我 们 绘制 出 最 优 照明 点 Xo 关于 两 个 光源 的 亮度 的 函数 .于 是 我 们 就 可 
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423 
正如 我 们 在 图 3.5 中 看 到 的 ， 对 于 很 宽 的 一 个 亮度 值 的 范围 ， 最 优 照明 点 位 于 s/2 = 10 附近 
这 一 点 同样 可 以 通过 比较 Xo 和 第 一 节 计 算 的 最 小 照明 点 Xm 的 数值 看 出 . 它们 的 相对 差 是 
> evalf((Xxm - Xo)/VXm ) ; 


.0013972025 
但 是 照明 强度 的 相对 关 是 
> evalf((C - Cmin)/Vcamin ) ; 
.040658248 
要 比 前 者 大 近 30 倍 . 
加 3.6 最 优 照明 强度 
Cim 
\ 1/ A 
2 \ 1 相 
/ 1/ \ 
1 ， 1 
! 1 ， 
1 志 1 
1 1 Cop \ 
， ， 7 
1 、 1 ， 
1 \ 1 
， 40 1 
1 1 NA 
了 A 7 由 
/ 学 
7 辐 7 司 
区 20 
-10 OO 10 20 蔷 3930 


最 后 在 图 3.6 中 我 们 比较 最 优 解 Cop 和 3.2 节 中 我 们 使 用 固定 的 高 度 =5 和 h2 =6 所 确 
定 的 解 . 


> Cop := evalf(C) ; 


Cop :一 18.98569177 


> X :='Xx': Cop := C: hll] := 5: 
> plot({C，Cop}，x = 


h[L2] := 6: 
= -S/2. .3+s/2) ; 


3.5 结论 


基于 我 们 的 计算 ， 我 们 能 够 对 有 关照 明 问题 给 出 如 下 的 建议 : 
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。 如 果 我 们 把 Xo 带 入 最 优 高 度 ， 则 它们 将 仅仅 依赖 于 光源 的 亮度 六 , 甩 和 它们 之 间 的 距离 s. 


1 VsP1/3 1 VsP1713 
TEA 2 一 一 一- 
2 P173 十 严 /5 2 Pi73 十 PS 


。 对 于 琅 = 殊 的 特殊 情况 ， 两 蔓 路 灯 的 最 优 高 度 是 


Pol 


Pol 一 几 o2 一 


专 
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第 四 章 平面 三 体 问 题 的 轨 这 
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平面 三 体 问题 是 描述 平面 上 三 个 质点 在 它们 彼此 间 的 牛顿 引力 作用 下 的 运动 的 问题 . 它 是 党 
微分 方程 组 数值 积分 的 一 个 著名 应 用 ， 因 为 这 个 方程 组 的 解 用 已 知 的 函数 来 描述 十 分 复杂 . 

顺便 指出 ， 三 体 问题 是 一 个 具有 很 长 历史 和 大 量 应 用 的 古典 问题 (参见 Szebehely[9| 和 Mar- 
chal[4] 的 详尽 论述 ). 不 过 ， 三 体 复杂 的 相互 作用 经 常 被 人 们 用 二 体 相 互 作 用 的 术语 来 描述 ， 这 样 
从 定性 的 角度 看 更 易于 理解 . 大 约 一 百年 前 ， 为 了 解决 这 个 问题 法 国 科学 院 曾 设立 了 一 笔 奖 金 ， 
这 笔 奖金 后 来 奖 给 了 Sundman[7j, 他 给 出 了 三 体 问 题 的 收敛 级 数 解 . 然而 由 于 Sundman 的 级 数 的 
收敛 速度 极 慢 ， 对 于 运动 轨道 的 讨论 没有 什么 实用 价值 . 

这 一 章 ， 我 们 将 展示 如 何 使 用 MAPLE 和 MATLAB 构成 和 显示 三 体 问题 的 数值 解 . 在 4.2 节 我 
们 将 直接 使 用 运动 微分 方程 和 MATLAB 的 数值 积分 器 ， 虽 然 对 于 许多 初始 条 件 ， 这 个 方法 很 快 产 
生 解 的 初始 部 分 ,但 对 于 充分 靠近 的 两 个 物体 ， 由 于 对 应 碰撞 的 奇异 性 ， 这 个 方法 往往 是 失效 的 . 

在 经 典 的 天 体力 学 中 ， TI. Levi-Civita[3] 提出 的 正则 化 变换 是 殉 服 数值 积分 在 两 个 物体 碰撞 
或 接近 碰撞 时 所 发 生 问 题 的 一 个 有 效 的 技术 . 因为 三 个 物体 能 够 结 成 三 个 物体 对 ， Szebehely 和 
Peters|8] 提出 当 相 互 距 离 小 于 一 个 确定 界限 时 把 Levi-Civita 变换 用 于 最 靠近 的 一 对 物体 . 

在 4.3 节 我 们 将 使 用 由 Waldvogell10] 提出 来 的 一 组 变量 ， 它 自动 地 正则 化 了 所 出 现 的 三 种 相 
遇 情 况 的 每 一 种 . 由 于 运动 方程 变换 的 复杂 性 ， 我 们 将 使 用 Hamilton 形式 体系 得 出 这 些 方程 . 然 
后 运用 MAPLE 的 微分 算法 (自动 微分 ) 能 力 生成 运动 的 正则 化 方程 . 


4.2 物理 坐标 下 的 运动 方程 
令 mj >040 = 0,1,2) 为 三 个 物体 的 质量 ， zj < 有 和 2e 及 2 是 在 惯性 坐标 系 下 它们 的 位 
置 和 速度 ( 列 ) 向 量 (字母 上 的 圆 点 表示 关于 时 间 + 上 的 导数 ). 我 们 将 用 " 表示 两 个 物体 之 间 的 距离 
(图 4.1 
7r0 一 |z2 一 Zil,rl 一 |zo 一 Za3|,ra 三 |zl 一 2Zo|. (4.1) 
下 面 我 们 用 己 表 示 ni 作用 在 rno 上 的 牛顿 引力 ， 则 有 


Z0 一 之 1 





有 一 一 ?no7ma1 
| 下 


如 果 选 择 长 度 、 时 间 和 质量 单位 ， 使 得 引力 常数 等 于 1, 则 牛顿 运动 方程 (最 简 形式 ) 变 为 











__ 1 一 Y0 之 2 一 Y0 
TZ0 一 701 了 十 了 
位 此 父 亿 人 
.。 2 一 1 0 一 忆 1 
之 1 一 7722 3 十 7720 3 (4.2) 
70 7 2 
0 一 必 2 灾 1 山 2 
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图 4.1 在 物理 坐标 下 的 三 体 问 题 


由 六 





人 


. Grantz ad .1. 下 aidvogel! 


这 个 有 12 个 自由 度 的 方程 组 可 由 MATLAB 以 直接 的 方式 积分 ， 定 义 ( 列 ) 向 量 了 了 e 及 为 因 变 
量 ， 即 


使 用 算法 4.1 提供 的 MATLAB 函数 Ydot=f(t,Y), 可 以 求解 方程 组 (4.2). 


Y = |zoi zoi zi;i2Zliz2i2Za2]. 


算法 4.1 函数 Ydot 
function Ydot=f(t ,Y) 


glLobal m0 mt m2 % masses of the three bodies 


x0=Y(1:2) ;xlL=Y(5:6) ;x2=Y(9:10) ; 
d0=(x2-Xxl)Vnorm(x2-XlL) ”>3; 
dl=(x0-Xx2)7VnormnGCxO-Xx2) ”3 ; 
G2=(xdl1-Xx0O)Vnorm(xt-XxO) >、3; 


Ydot( 1: 2)=Y( 3: 4) ; 
Ydot( 5: 6)=Y( 7: 8) ; 
Ydot( 9:10)=YCit:127 ; 
Ydoet( 3: 4)=mi*rd2-m2*dl : 
Ydot( 7: 8)=m2*+d0-~mO*d2 ; 
Ydot (11:12)=mO*rd1-ml*do0 ; 
Ydot=Ydot (: ) ; 


调用 MArrAB 的 积分 器 odeil3 和 几 行 MArrAB 代码 就 可 以 产生 三 个 物体 的 轨道. 
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>> gobal mo iT m2 ; 

>> mO= 5 mnt=3; m2 = 4; 

>> X00 = [1;-1]; xtO = [1;3]; x20 = {f-2;-1]; xpo = [o;0] ; 

>> options= odeset(?RelTol' ,1le-10,:AbsTol，，,1le-107) ; 

>> [Ti,Y1] = odqell3(:f,)，f[o 63] ， [x00;xp0;xl0;xPO;x20;XxpO] ， 
options) ; 


在 上 面 的 例子 中 ， 由 于 历史 原因 使 用 了 所 谓 的 Pythagorean 初始 条 件 (参见 图 4.2)， 


7720 二 5， 7721 一 3， 12 一 4， 

工 一 人 
2 二 罗网 )， 2Z2 王 4.3 
Z0 一 0， T1 一 0， 立 2 一 0 


这 些 数 据 于 1913 年 首先 被 Burrau 使 用 [, 但 是 这 个 系统 的 最 后 发 展 是 于 1967 年 由 Szebehely 和 
Peters 8] 使 用 精细 的 数值 积分 解决 的 . 这 个 问题 的 历史 记载 同样 在 [加 中 给 出 ， 这 些 并 没有 直接 
的 天 文 或 物理 的 意义 . 


图 4.2 Pythagorean 问题 的 初始 构 形 





对 于 时 间 区 间 0<t 上 < 63, 在 配置 为 200 MHz Intel Pentium Pro 处 理 器 的 PC 上 运行 了 大 约 三 
分 钟 的 时 间 执 行 了 11016 次 积分 运算 . 在 图 4.3 和 4.4 中 我 们 给 出 了 三 个 物体 在 时 间 区 间 0<t<10 
和 10<t<20 的 轨道 ， 同 时 最 后 在 图 4.5 中 给 出 了 区 间 50<+< 和 63 上 的 轨道 . 
>> R1 = 1:1900; 
>> Plot(YL(R1 ,1) ,YL(RL,2) ,一 ，..、 
Y1(R1 ,5) ,Y1(R1,6),，:，，Y1(R1,9) ,Y1(R1,10) ，:-.，) 
>> R2 = 1901:3633 ; 
>> plot(Y1(R2,1) ，Y1(R2,2) ,，-，，... 
Y1(R2 ,5) ,YL1(R2,6),:::，YL(R2,9) ,Y1(R2,10) ，-.，) 
>> R3 = 8515:11016 ; 
>> plot(Y1(R3,1),Y1(R3,2)，，-，，. 
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Y1(R3 ,5) ,YLt(R3,6) ,，::，， Yi(R3,9) ,Y1(R3 ,10) ，:--.) 
在 上 面 的 例子 中 使 用 的 最 小 步 长 是 
>> [m,k] = min(diff(T1) 7) ; 
>> 问 


计 < 握 
8.8727e-008 
>> T1(k) 
ans = 
15 .8299 


图 4.3 0<t< 10 时 的 轨道 实 线 : rno, 点 线 :mml, 点 画 线 : ma2. 


3 


2.5 





这 个 最 小 的 步 长 是 在 上 = 15.8299 时 需要 的 ， 这 时 ro 和 ma 之 间 出 现 了 接近 碰撞 的 现象 .积分 器 


图 4.4 10<t<x20 时 的 轨道 . 
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几乎 不 能 处 理 这 种 接近 碰撞 的 情况 . 然而 对 于 上 > 15.83, 尽管 容许 误差 小 到 le - 10, 轨道 的 精确 性 
”也 是 相当 低 的 ， 这 一 点 可 以 从 把 图 4.5 与 图 4.9 和 [8] 中 的 结论 相 比 较 看 出 . 

事实 上 由 这 个 数值 积分 预报 的 最 终 演 化 结果 是 不 正确 的 . 为 了 补偿 接近 碰撞 时 的 高 速度 ， 这 
个 积分 器 必须 急剧 地 减 小 积分 的 步 长 ， 有 时 甚至 要 接近 导致 不 精确 结果 的 容许 精确 度 的 水 平 . 这 
些 问题 将 在 下 一 节 通 过 引入 新 的 变量 来 解决 ， 这 些 变量 将 使 所 有 可 能 的 二 元 碰 提 出现 的 奇异 性 正 
则 化 . 


图 4.5 50<t<63 时 的 轨道 


2 
SN _ 
ns 
0 二 下 0 
二 1 Re 
-2 
-3 
_4 
-3 -2 --1 0 1 2 
4.3 全 局 正则 化 
为 了 简单 起 见 ， 我 们 将 假设 质心 于 初始 时 在 原点 处 于 静止 状态 ， 即 
2 人 
,rnjzj 二 > mm 一 0; (4.4) 
了 7 一 0 7 一 0 


则 运动 方程 (4.2) 意味 着 在 整个 运动 过 程 中 (4.4) 是 满足 的 . 这 个 事实 可 以 删除 其 中 一 个 变量 z5 
这 可 以 在 Hamilton 形式 体系 下 通过 引入 关于 zxo 的 相对 坐标 


大 一 T1 一 2Z0， YY 一 ze 一 0 (4.5) 


来 实现 ， 就 象 典型 共 鱼 矩 那样 
省 77212Z1， CO 一 2022. (4.6) 
在 相对 坐标 下 这 些 质 点 之 间 的 距离 就 变 为 
70 一 | 北 s 天 |， f 1 一 | 交 |， 72 一 | 蕊 |. (4.7) 
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于 是 运动 方程 可 以 从 Hamilton 函数 


厅 己 + PIC mama moml Torms (4.8) 
2mo 2ml 2m2 | 一 X| |X| | 歼 | 
得 到 ,为 
。 如 万 。 万 。 0 克 。 0 万 
4 = 了， ， 工 -- 丈 4= 开 
三 个 物体 的 坐标 zo, zl zz 可 以 由 方程 (4.4) 和 (4.5) 被 恢复 为 
2 Z1l 一 Z0 十 基 ， Ta 一 Z0 十 了 了. (4.10) 


7Tz0 十 7101 十 702 


干 面 为 方便 起 见 ， 与 向 量 v = (uli,vz)- e 也 有 关联 的 复数 vi + iuz 将 被 用 相同 的 符号 ve C 
来 表示 . 在 两 种 记 法 下 惯用 的 模 的 符号 lv| = Vwoi +zvz 也 在 这 里 使 用 . 

为 了 正则 化 在 rmo 和 nl 碰撞 时 的 运动 方程 ， Levi-Civita 方法 需要 按照 保 角 映 射 和 =z 3 引 
入 新 的 复 坐 标 zeC 以 代替 XeC. 进而 ， 必 须 按 照 微分 之 间 的 关系 dt = |Xlds 引入 一 个 新 的 虚 
构 时 间 s [3]. 

在 三 体 问 题 中 为 了 同时 正则 化 所 有 三 个 碰撞 ， 我 们 将 使 用 由 Waildvogel 提出 的 这 个 变换 的 推 
广 [10|. 为 了 代替 复 坐 标 X,Y 和 时 间 已 我 们 使 用 新 的 坐标 ze C,y e C 和 虚构 时 间 s, 它们 与 
X,Yt 的 关系 是 
dt 一 ro7172ds. (4.11) 








四 一 人 
变换 (4.11) 的 正则 化 效果 的 关键 是 关系 式 


和 一 和 = (zz 四 ”2; (4.12) 


Zz2 十 12 
Y=( 2 )， 


这 样 所 有 三 个 复 相 对 坐标 X, 六 和 一 了 被 写成 新 的 复 坐 标的 完全 平方 形式 . 
把 运动 方程 (4.9) 变换 为 新 变量 的 机 制 需要 引入 新 的 矩 量 Pe C,g e C, 使 得 从 变量 组 (X, 六 已 @) 
变换 的 变量 (z,y,p,9) 是 典型 的 ， 定 义 新 矩 量 关 系 的 结果 是 [10] 


人 


名 多 z(z2 一 扫 ) 一 gz 一 久 ) 
吕 翁 ) | z(z2 十 y2) 。 ga(z2 十 妨 ) 
41 表示 4 的 复 共 生 转 置 矩 阵 . 
正则 化 的 运动 方程 是 
dr Of dy of dp 2 玫 dg 口 玉 dt 


人 


其 中 


其 中 
五 一 7O7TL 7 2 ( 玖 一 五 ) (4.16) 


是 以 新 变量 表示 的 正则 化 的 Hamilton 函 教 ， 同 时 妃 是 瓦 的 初始 值 ， 即 总 的 能 量 ， 因 为 在 轨道 上 
再 ( 归 = 已 = 常量 ， 可 得 在 这 个 轨道 上 有 天 (s) = 0. 
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在 进一步 的 操作 中 ， 将 尽量 多 地 使 用 MAPLE 的 功能 . 然而 为 求 五 的 梯度 使 用 符号 微分 将 使 
(4.15) 的 右 端 产生 许多 无 效 赋值 的 项 . 

下 面 介 绍 一 个 成 功 的 方法 . 第 一 步 使 用 委 然 出 现 的 辅助 量 ， 如 ro,ri,rz 等 ,将 五 的 表达 式 写 
得 尽量 简捷 ， 这 时 天 的 梯度 就 可 以 借助 于 自动 微分 法 赋值 从 而 产生 有 效 的 编码 . 

令 z=zi+iry=+igczeRzaeR 则 按照 (4.11) 和 (4.7) 我 们 得 到 


:= X1L 二 工 X2 : 

YL1 + 工 y2 : 

(CCx >“2-y”2)72) 2: 

:=【〔〈(x>”24+yY “2)7/2) 2: 

r0 := factor(evalc(abs(Y-X) 1) ) : 

rO simplify(FO，Power ，Symbolicy) ; 


r0 := (z22 十 z12) (722 十 912) 


MAVVVM YNV 
rG pe 中 
上 


> rt := factor(evalc(abs(Y) )) ; 


关 丰 二 


(2 一 2z2o1 二 zz22 二 3222 十 2y2z1 十 z12)(y12 十 22 十 27291 十 z82 一 27271 十 Z1”) 
> ITr2 := factor(evalc(abs(X))) ; 


多 2 和 一 


1 
(y12 十 122 一 238z2+z82 一 271z1 十 z12)(912 二 022 二 28222 十 7z22 十 231z1 十 21) 


容易 看 出 因子 r 和 ra 是 平方 和 . 我 们 写 了 一 个 小 的 MAPLE 过 程 reduce { 人 参见 第 61 页 的 算法 4.4) 
去 化 简 这 些 表 达 式 ， 因 为 MAPLE 没有 直接 的 命令 实现 这 个 操作 . 


> TYrl := reduce(Crl) ; 


一 证 2。 (1 xz2)2 十 (2 十 z1)2) (yt 十 z8)2 二 (92 -xz1)2) 


> Tr2 := reduce(r2) ; 


站 二 


根据 (4.16)(4.8) 和 (4.7) 我 们 得 到 天 的 表达 式 
2 


277m20 27721 27722 


对 于 辅助 变量 了 5), 经 过 简单 地 计算 可 得 


一 (mo7za17o71 十 ?1722Y172 十 2277207270) 环 ro7172. (4.17) 


70 ，_ 柜 
7o 一 Yorlrz| 己 十 @j 16|5P 79] 
个 
Ti 一 Yorlr2| 书 一 1 一 元 gj (4.18) 
y 
813a 一 rorlirz|@ = 了 | 知 十 元 q| 
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使 用 实数 记 法 P= pi+ipz,9g=9i +ig, 将 上 述 表 达 式 写成 以 因子 形 陈 为 主 





关 
7o = 计 (lplz2+lgPly 一 4 一 瑟 ) 
和 
DZ = 天 (eg 二 le 一 4 十 ) 
条 
Za = 天 (pyP+lelz2+4 一 瑟 ) 
其 中 
4 = 2(zliyl 十 z2y2)(p191 十 pz92) 
互 = 2(zayl 一 Zily2)(p291 一 D192). 


在 算法 4.2 中 给 出 了 计算 正则 化 Hamilton 函数 天 的 一 个 MAPLE 程序 ， 其 中 忆 的 意义 稍微 有 所 
修正 ， 同 时 总 能 量 互 用 枉 来 表示 ， 

为 了 计算 K 关于 所 有 变量 的 偏 导数 ， 我 们 使 用 MAPLE 的 自动 微分 功能 . 关于 自动 (或 算法 的 ) 
微分 法 的 介绍 我 们 参考 了 [2,5]. 我 们 知道 ， 所 谓 的 自动 微分 法 的 反 向 模式 最 适宜 于 计算 梯度 . 将 前 
向 模式 应 用 于 XK 将 导致 大 约 300 次 乘法 的 过 程 (优化 以 后 ), 而 反 向 模式 则 仅仅 约 为 200 次 . 


算法 4.2 计算 X 的 程序 
K:=Proc(xl,x2,ylL,yY2,p1,pP2,ql,q2) 
local xx,，yy,，pPP,qq,I0O,IL，,r2， 
A,B,LO,LtT,L2,mn0l ,mt2,m20,apb ,amb; 


XX :=X1 ”2+X2 2; yyY=y1L1 2+y2 2 ; 
PP:=Ppl 2+p2 2; qq=ql 2+q2 23 


IO :=XX 半 yy ; 
r1:=((xl-y2) >“2+(x2+y1)>~2)*((xt+y2) ~2+(x2-y1) “2)74; 
r2:=((xl+yl1) ”2+(xX2+y2) ”~2)*((x1-y1) ~2+(xX2-y2) ”2)74; 


A:=2*+(Pp1rQq1+P2*Qq2)*(X1*y1+X2*y27) ; 
B:=2*#*(P2*+*q1-P1*y*q2)#(Xx2*#y1-X1*y27) ; 


apb :=A+B ; 
amb :=A-B ; 
LO ; =T0*+(PP*xx+qqkyy-apb) ; 
LI1 :=Tl*(PP*yy+qq*kXX-amb) ; 
L2 :=r2* (PPp*yy+Qqq#yXX+amb) ; 


moOlt :=moOrml ; 
ml2 :=ImL*rm2 ; 


m20 :=m2xkmo ; 


LO/32/m0+L1/32/mti+L2/7/32/m2-m01*TrO*rT1T-mlL2* 工 LT2-m20*T2+zO-EE*IOy#I 工 1xT2 1; 
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end : 


如 果 我 们 在 计算 导数 时 事先 分 开 各 个 乘积 以 避免 产生 共同 的 子 表达 式 , 这 个 计算 次 数 还 可 以 减少 . 


SK := SPLIT(K) : 

RSK := REVERSEMODE(CSK) : 

DRSK := readlib(optimize) (RSK) : 
COST(CORSK) ; 


VM VSVYV 


138 rzultplzcatoms 十 129 assig7277ae72ts 十 81 subscrzpts 十 86 additions 十 3 diutszoms 


十 umc 友 oms 


我 们 这 里 使 用 的 程序 可 以 通过 匿名 FTP 从 ftp.inf .ethz.chl 得 到 . 最 后 的 结果 是 计算 方程 (4.15) 
右 端 的 MAPLE 程序 0RSK, 它 仅 仅 带 有 144 乘法 (乘法 和 除法 ) 运算 .， [10] 的 作者 之 一 写 了 一 个 手 
工 优化 的 程序 ， 它 大 概 需要 100 次 乘法 运算 和 50 次 加 法 运算 ， 因 此 由 MAPLE 得 到 的 结果 几乎 是 
最 优 的 . 
用 MAPLE 同样 能 够 证 明 程 序 0RSK 实际 上 是 正确 的 .为 此 我 们 使 用 软件 包 Linalg 中 的 gradient 

函数 计算 梯度 ， 并 与 程序 0ORSK 产生 的 结果 按照 符号 输入 参数 逐个 元 素 进 行 比 较 . 

> 6L := ]inalg[grad] (KGCxl,x2,yt,y2,p1,p2,ql,q2) ， 

> [xl,x2,yl,y2,Plt,Pp2,ql,q2] ) : 

> 6G2 := [ORSKCxzt,x2,yl,y2,Ppt,p2,ql,q2)] : 

> Zip((glL,gE2)->expand(g1-g2) ，convert(G1，1ist) ，G2) ; 


[0, 0, 0, 0, 0, 0, 0, 0] 
为 方便 起 见 数值 积分 和 轨道 的 图 形 输出 将 再 一 次 由 MATLAB 实现 . 为 了 将 MAPLE 的 0ORSK 程序 转 
换 为 MATLAB 程序 ， 我 们 需要 作 一 些 语 法 上 的 变化 ， 这 可 以 借助 于 简单 的 编辑 器 来 实现 .首先 ， 
MAPLE 的 赋值 “:=” 必 须 转换 为 MATLAB 的 “=”， 同 时 向 量 的 记 法 必须 由 方 括号 (a[1]) 转换 为 
圆 括号 (a(1)). 还 要 加 上 程序 头 ， 结 果 必 须 以 数组 的 形式 存 起 来 . 这 就 得 到 了 一 个 大 约 150 行 的 
MATLAB 程序 ， 它 被 列 在 算法 4.3 中 . 


工法 4.3 函数 threebp 
function yprime=threebp(s ,y) 


gLobal mo ml m2 EE 


xl=y(1); x2=y(2); yl=y(3) ; y2=y(4) ; 
p1=y(5); p2=y(6); ql=y(7) ; q2=y(8) ; 


% here comes the Maple generated code 


七 1=XIt 2 ， 


七 137= 七 43*#XX+ 七 44*XX+ 七 45*yY ; 


1URL: ftp://ftp.inf.ethz.ch/pub/SolvingProblems/ed3/chap04/ 
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gd(C1)=-y2*t96+y1*t98+t100+t1O1+t1LO2+tt1O3+2*Xlzyt1l104 ; 
grd(2)=y1l*t96+yY2*+t98+t109+tttO+t111+ 上 TEL2+2*+X2* 七 1O4 ; 
grd(3)=X2*t96+Xlyt98-t100+t101-t1dli1+tl12+2*y1xkt117 ; 
grd(4)=-Xx1*t96+Xx2*t98-t109+t1tO+t102-tt1O3+2*+yy2* 七 117 ; 
ErQ(C5)=-Qq2*+t124+q1*ti126+2*rplrt1l28 1 
grd(6)=ql*#tl24+q2*+tti26+2*+P2xt128; 
grd(7)=p2*t124+p1*t1i26+2*ql+*t1l37; 
grd(8)=-P1*#t124+P2*t126+2*q2*+t137 ; 


ypPrime(1:4)=grd(5:8) ; 
yprime(5:8)=-grd(1:4) ; 
ypPTrime (9)=rO#ITTr*rT2 ; 


end 


因为 在 正则 化 变量 中 时 间 上 是 因 变 量 ， 轨 道 本 身 是 从 方程 组 (4.15) 的 前 8 个 微分 方程 得 到 的 ， 而 
三 体系 统 的 时 间 变 化 可 以 从 最 后 一 个 方程 得 到 . 

在 积分 这 个 微分 方程 组 时 ， 时 间 判 定 的 工作 是 关于 导数 的 计算 ， 即 上 面 的 程序 每 步 至 少 执行 
一 次 睦 值 . 自从 MATLAB 程序 出 现 以 来 ， 一 个 好 的 想法 是 用 C 语言 程序 (要 有 一 些 语 法 上 的 变 
化 ) 来 执行 这 个 计算 并 把 它 与 MATLAB 动态 相连 .这 种 方式 下 加 速 因子 可 达到 10. 对 于 C 代码 和 
MATLAB 连接 更 详细 的 内 容 可 以 参考 123 页 的 9.3.4 节 . 


4.4 了 PPythagoreamn 三 体 问题 


为 了 在 正则 变量 下 积分 出 一 个 轨道 ，z,y%p,9 在 s=t 上 一 0 的 初始 值 必须 使 用 变换 (4.11) 的 反 
变换 
Z 一 VY 十 VXX， 2 二 VY 一 V 蕊 ， 


和 (4.13) 来 计算 . 对 于 Pythagorean 初始 条 件 (参见 方程 (4.3) 和 图 4.2) 我 们 可 以 再 次 使 用 MAPLE 来 
求 得 这 些 初 始 值 . evalc 函数 把 一 个 复数 表达 式 分 裂 为 它 的 实数 和 虚数 部 分 ,同时 函数 radnormal 
简化 了 开 方 的 运算 . 


> Digits := 20: ITreadlib(radnormal1) : 


> 共 := 4*+ 工 : 
> YY := -3: 
> X := sqrt(sqrt(Y)+sqrt(X) ) ; 


z:=VTV3+V2+TV2 


> X := mapkt->map(radnormal , 蕊 ) ,evalc(X) ) ; 


z :一 二 V2+2VSV5+2V5+2TIV2+2VSV5-2V5 
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> evVvalf(" ) ; 


1.5594395315555318362 十 1.00878049654275212147 


> yy := sqrt(sqrt(Y)-sqrt(X) ) ; 


一 VTV3 一 V2 一 TV2 


> y := map(t->map(radnormal ,t) ,evalcCy)) ; 
1 1 
y :一 5V-2+2V3V2-2V2+5TV-2+2V3V2+2V2 
> eVvalf(") ，; 


.13280847188730666477 十 1.19660003868382712577 


因为 物体 在 初始 时 是 静止 的 ，2 = 9 = 0. 总 能 量 妃 可 以 由 条 件 天 (0) = 0 得 到 . 


> mo := 5: ml := 3: m2 := 4: 
> Tadnormal(solve(K(Re(x)，Im(x) ，Re(y)，Im(y)，0，0，0，0) ，EE) ) ; 
-769 
60 
我 们 现在 启动 MATLAB 使 用 ode45 积分 微分 方程 组 . 
>> glLobal mo ml m2 EE; 
>> mO=- 5; ml= 3; m2 = 4; 
>> plO0 = 0;i qto = 0; pz20 = 0; q20 = 0; 
>> XlO 1.5594395315555318362;  X20 = 1.0087804965427521214 ; 
>> ylLO 0.13280847188730666477; y20 = 1.1966000386838271256 ; 
>> EE = -769/60; 
>> options= odeset(，RelTol,， ,1le-1i0o, :AbsTol， ,1e-10) ; 
>> [S,Z] = odell3('threebp，，[oO 7.98] ， 
[x10 ,x20 ,yl10,y20 ,p10 ,P20 ,qt0 ,q20 ,0] ，options) ; 
对 于 上 面 的 积分 在 精确 度 10~10 下 需要 2768 步 积 分 (在 Pentium Pro 200 处 理 器 上 大 约 需 要 一 分 
钟 ). 虚构 时 间 的 区 间 0 s<7.98 相当 于 0<t<tr 一 63.6127. 


>> SiZzZe(Z) 


2768 9 
>> Z(size(Z) ) 


anS = 
63.6127 
下 面 我 们 借助 方程 (4.11) 和 (4.10) 恢复 三 个 物体 的 坐标 ro zlyzs 
>> X = Z(:，,1)+iyZ(: ,2) ; 
>> yY = Z(:,3)+i*Z(: ,4); 
>> X = (x.”2-y. 2) .~274; 





56 妃 .GYraumtz and JJ aladuoge! 


>> Y = (xX. “2+y. 2) . “274; 
>> Xx0 = ~ (ml1*yX+m2+kY) / 〈(mO+mni+m2) ; 
>> Xt1 = XO 十 芭 ; 
>> XZ2 = 一 XUO 十 工 ; 
现在 我 们 可 以 使 用 如 下 的 命令 以 动画 的 形式 来 观看 三 个 物体 的 轨道 . 
>> Cl 
>> axis([-3.3361 3.4907 -4.9904 8.5989j ) 
>> bold on 
>> [nn,e]=size(Cxl1) ; 
>> OF KX=T1:Dn-1， 
>> Plot(xO(K:k+l) ,rr- :EraseMode，,， none 7?); 
>> Plot(xt(K:k+l)，g::， EraseMode:，?none) 1) ; 
>> P1lot (x2(K:k+1l) ，b-.，，EraseMode，,，:none  ) ; 
>> Qrawnow 
>> end 
>> hold off 


图 4.6 20<t<30 时 的 轨道 





这 个 动画 的 几 个 片段 将 在 下 面 给 出 0<t<20 的 轨道 与 图 4.3 和 图 4.4 所 示 的 相同 . 其 余 时 间 区 
闻 的 轨道 在 图 4.6, 图 4.8 和 图 4.9 中 给 出 . 在 这 些 图 中 点 线 表 示 na 的 轨道 ， 点 划 线 表示 rna2 的 轨 
道 ， 实 线 描述 了 具有 最 大 质量 的 rn 的 运动 . 

我 们 已 经 得 到 了 全 部 轨道 的 资料 ， 可 以 对 这 些 轨 道 作 进一步 地 讨论 .例如 我 们 可 以 求 出 两 个 
物体 接近 碰撞 的 次 数 . 这 可 以 通过 对 mm 和 rz 即 江 和 Y 的 绝对 值 随时 间 上 变化 图 形 的 观察 看 出 . 

>> T2=Z(: ,9) ; 

>> Plot(T2，abs(X) ) 

>> plot(T2，abs(Y) ) 

在 三 体 运 动 的 系统 中 , 在 上 >0 的 任何 时 间 内 ， 两 体 之 间 的 最 小 距离 是 于 上 = 15.8299 在 rnro 和 





第 四 章 平面 三 体 问 题 的 轨道 57 


图 4.7 距离 ri 和 r2 随时 间 的 变化 





70 





| 岗 


ma2 之 间 发 生 的 : ri = 9.1094e -- 04. 这 个 接近 的 碰撞 可 以 在 图 4.4 看 出 ， 更 详细 的 情况 在 图 4.10 


中 给 出 . 
>> [m,xk]=min(abs(Y) ) 


10 20 


职 三 
4.4744e-004 


655 


>> T2(K) 
amngS 三 
15.8299 
讨论 三 体 速 度 向 量 的 一 种 简单 方法 是 使 用 两 个 相 邻 积分 步骤 之 间 的 前 向 差分 方程 作为 近似 ， 即 
Zo=diff(x0O) ./ diff(《T) . 
但 使 用 方程 (4.13) 和 (4.6) 同样 有 可 能 从 轨道 资料 得 到 真实 的 速度 向 量 . 首先 我 们 借助 于 MAPLE 
给 出 已 和 Q@ 的 符号 表达 式 (抑制 对 力 定 的 复 共 斩 ) 


> XI= 'Xx: yy := y:: 
> B := 1inalg[matrix](2,2,[[x*(x>2-y”"2) ，-y*(Xx>“2-y ”2)] ， 
> tx* (x>~2+y>~2) ，y*(X “2+yY “2)]]) ; 
z(zZ2 一 22) 一 (一 一 到 ) 
z(z2 十 ) 3 十 太 ) 
> invB := Linalg[inverse] (transpose(B) ) : 
> pq := Linalg[vector]([P,g]): 


PQ := map(normal ,1inalg[multiply] (invB ,pq) ) ; 
5 0 
| 2z(z2 一 yy2)y 2z(z2 上 +22)7 


V 
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图 4.8 时 间 区 间 30<t<40 和 40<t<50 的 轨道 





除了 表示 共 生 的 横 线 外 ， 这 个 结果 与 [10] 中 给 出 的 结果 是 一 致 的 ， 即 
2PY 一 4Z DY 十 9 (4.19) 


我 们 还 能 找到 最 大 的 速度 . 结果 是 在 上 = 15.8299 时 ， no 和 mmz 有 它们 的 最 大 的 速度 ， 也 就 是 在 
4.2 节 我 们 求 出 的 接近 磁 扩 的 位 置 . 在 这 个 时 间 ， ni 的 速度 非常 小 . 要 注意 到 这 些 最 大 速度 是 由 
数值 积分 产生 的 离散 点 集 上 的 最 大 值 . 因此 如 果 改 变 积分 器 ， 这 些 最 大 值 会 有 相应 的 变化 . 

>> Xbar = Z(: ,1)-IFy*Z(:.2) 

>> ybar = Z(4: ,3)-IF*Z(: ,4) ; 

>> P = Z(:,5)+i*rZ(: ,6) ; 

>> q = Z(:,7)+i*Z(:,8) ; 

>>P= (pp ./ xbar -QQ ./ ybar) ./ (2*(xbar. ”2 - ybar. ”2)); 

>> Q= (p./ xbar +Qq ./ ybar) ./ (2*+r(xbar.`"2 + ybar .~2) ) ; 

>> VX1 = P/ml; 

>> VX2 = Q/m2 ; 

>> VXO = - (ml*vxt+m2*#rVx2) /mo ， 

>> [Lv,Kk]=max(abs(CvxO) ) 


89 .1372 
廊 = 
655 
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图 4.9 时 间 区 间 50 <t<63 的 轨道 





>> Lv ,kk]j=max(Cabs(vx2) ) 
v = 

1t1t.4273 
x = 

655 


>> abSs(Cvxt(Kky) ) 
ans = 
0.0404 

在 上 = 15.8299 发 生 的 接近 碰 拉 有 着 特殊 的 意义 ， 注意 到 ， 这 三 个 物体 在 这 次 接近 相遇 的 前 后 近似 
描述 了 相同 的 轨道 (参见 图 4.4). 在 图 4.6 中 仍 有 这 种 趋势 ， 同 时 在 二 s 31.66 三 个 物体 以 很 小 的 速 
度 又 近似 占据 了 它们 的 初始 位 置 (参见 图 4.8 的 左面 一 幅 ). 这 意味 着 接近 了 Pythagorean 的 初始 条 
件 ， 从 而 存在 着 周期 解 . 在 图 4.10 中 ， 我 们 看 到 了 图 4.4 的 细节 ， 它 是 使 用 如 下 的 命令 从 4.2 节 得 
到 的 数据 中 产生 的 : 

>> [m,xk] = min(qiff(T1)) ; 

>> 有 只 = X-200:X+200 ; 

>> PlLlotCYI(CR,1) ,YL1(CR,2) ， > 一”…，x.. 

Y1(R,5) ,Y1(R,6)，::，，Y1(CR,9),Y1(R,10) ,一 .:) 
>> hold on 
>> plot(Y1(k,1)，Y1Gk,2) ，?:+?) 
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>> Plot(Y1(k,9)，Y1(Kk,10) ， ?+)) 

>> axis([-0.60 -0.59 -0.33 -0.32] ) 

>> hold off 
最 后 ， 图 4.9 显示 了 所 有 三 个 物体 在 接近 的 相遇 之 后 三 条 轨道 的 渐进 行为 ， 要 指出 ， 在 4.2 节 ( 久 
4.5) 以 直接 的 方式 得 到 的 最 终结 果 是 不 正确 的 . 


图 4.10 在 上 = 15.8299 附近 mm2 和 no 的 轨道 





-0. 


33 
-0.6 -0.599 -0.598 -0.597 -0.596 -0.595 -0.594 -0.593 -0.592 -0.591 -0.59 


另 一 个 有 趣 的 图 是 积分 时 使 用 的 步 长 大 小 . 对 于 全 局 正则 化 所 使 用 的 最 大 步 长 是 0.0264 含 三 
59.4421), 同时 除了 开始 和 最 后 的 运动 状态 最 小 的 步 长 是 3.7553e -- 004 (t = 52.8367). 对 于 4.2 节 的 
直接 方式 最 小 步 长 是 8.8727e -- 008( 人 参见 48 页 ). 在 图 4.11 中 我 们 分 别 看 到 在 直接 方式 下 ( 左 图 ) 和 
全 局 正则 化 方式 下 ( 右 图 ) 所 使 用 的 步 长 大 小 . 注意 这 两 个 图 斥 度 是 不 同 的 . 

>> Plot(diftf(T1)); axis([0,11015,0,0.07]) 

>> Plot(diff(S)); axis([0,2767,0,0.03]) 


图 4.11 积分 时 步 长 的 大 小 
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4.5 结论 


实验 表明 ， 三 体系 统 长 时 间 的 演变 过 程 对 初始 数据 和 数值 积分 的 精确 度 是 极其 敏感 的 .典型 
的 例子 是 相 邻 的 轨道 随 着 时 间 而 指数 地 分 离 . 这 意味 着 这 个 系统 就 象 我 们 身边 的 一 些 系 统 (如 天 气 
预报 ) 那样 在 长 时 间 范 围 内 是 不 可 预测 的 . 

然而 ， 如 果 在 有 限 的 时 间 0 <t < 和 tr 内 以 足够 的 精确 度 进 行 数 值 积分 ， 那 么 这 个 数学 问题 的 
一 个 确定 的 、 唯 一 的 解 是 能 够 被 近似 的 . 

在 区 间 [0,tj] 内 所 达到 的 精确 度 的 一 个 粗略 检验 可 由 Hamiitonian 函数 天 (s) 求 得 ， 理 论 上 它 
在 整个 轨道 上 应 该 是 零 . 在 我 们 的 例子 中 对 于 se f0,8], 开 (s) 的 最 大 值 是 

>> for k=1:Dn，KKCGIKkK) = KGCZ(k,1:8)) end; 

>> norm(KK ,inf) 

anS 三 

1.9638e-006 

一 个 更 可 人 靠 的 检验 可 以 通过 以 不 同 的 允许 精度 积分 相同 的 轨道 得 到 .只 要 不 同 的 近似 达到 足 
够 的 精确 度 ， 轨 道 就 是 有 效 的 ， 另 一 方面 ， 轨 道 的 有 效 性 也 可 以 由 反 向 积分 这 个 轨道 来 检验 . 

在 Pythagorean 三 体 的 问题 中 ， 我 们 看 到 物体 的 运动 是 以 很 长 的 包括 所 有 三 个 物体 多 次 接近 
相遇 的 交互 作用 开始 的 . 在 上 = 46.6 时 ， 最 小 质量 的 物体 ri 穿 过 新 形成 的 二 元 物体 ro 和 ma 疾 
驶 而 过 ， 同 时 在 第 三 象限 被 加 速 到 几乎 要 脱离 这 个 系统 . 然而 在 上 土 = 59.4 又 受到 另 一 个 力 而 返 了 
回来 ， 此 后 它 确定 地 在 第 一 象限 被 排出 另 一 方面 二 元 物体 又 向 相反 的 方向 逃逸 . 这 也 可 能 是 在 
银河 系 中 形成 双星 和 晕 的 机 制 之 一 . 


MAPLE 程序 reduce 的 代码 
在 算法 4.4 中 程序 reduce 把 一 个 给 定 表 达 式 a 写成 平方 和 的 形式 . 
站 法 4.4 函数 reduce 


reduce:=Proc(a) Jocal p,P,S,c,i,j,f; 
if typeka,{name ,constantj) 上 then 3 
elif typeka, +:) then pP:=aj P:=convert(P ,1ist) ; 
S:=map(t -> if (type(t,:”) and type(op(2,t) ,even) ) 
then op(1,t) ”~(op(2,t)/2) fi，P); 
for ji to nops(S) do 
for j from i+l to nops(S) do 
让 has(p,2*S [i]*S[j]) then 
P:=p-(S[i]`2+2*S[i]j*S[jj+Srj] ”>2) 
+(S[i]+S[j]) ”2 
elif has(pP,-2*S[i]*Ss[j]) then 
P:=pP-(SLij ”2-2*S[Lij*xSs[jj+SLjj >2) 
+(S[Li]-SLIj) ”2 
fi 
od ; 
od ; 
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P 
else map(reduce ,a) 


f{i 
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让 我 们 考虑 在 z 方向 上 , 长 度 为 ! 的 一 个 半导体 , 它 的 电离 活动 杂质 的 密度 为 C(z) = Cp(z)-- 
Cri(z). Cr 和 C 分 别 是 受 体 和 施主 的 杂质 密度 ， 与 y 和 z 独立 . 假设 此 半导体 连接 到 一 个 具有 
UV(0) = UVo 和 UV(D) = 0 的 外 势 U(z). 如 果 半 导体 在 y 和 >z 方向 有 充分 大 的 量 纲 ， 则 所 有 的 物理 性 
质 只 依赖 于 z, 我 们 可 以 把 它 作为 一 维 对 象 来 研究 . 

对 于 给 定 的 载波 (电子 和 空洞 ) 密度 C(z), 我 们 来 考虑 求 半 导体 内 势 的 问题 . 为 了 简化 问题 ， 
我 们 假设 能 忽略 载波 的 复合 和 产生 . 

在 标准 条 件 下 ， 我 们 可 以 假设 电子 和 空洞 的 系统 是 一 个 经 典 系统 . 于 是 ， 在 一 个 内 势 场 V(z) 
中 ， 由 Boltzmann 统计 ([2]) 可 知 电 子 和 空洞 的 平衡 密度 nm(z) 和 P(z): 


n(z) = mieg(V(z)-pF)， p(z) = mie 了 如 (%(z) 一 PP)， 
其 中 mw 是 电子 的 固有 密度 ， wp 是 所 谓 的 Fermi 势 ， 在 整个 半导体 上 它 是 常数 ， 并 以 势 (pr = 0) 


作为 参考 标准 ; qd 是 一 个 电子 的 电荷 ;f 0 = AT 是 统计 温度 . 
假设 上 述 条 件 成 立 ， 则 内 势 VW(z) 是 Poisson 方程 的 解 ， 对 于 一 维 问题 ， 它 具有 形式 








玫 人) = nz) -plz) - Ca)， (5 
其 中 < 是 介质 常数 . 
用 所 谓 的 固定 势 Vp(z) 表示 密度 C(z) 是 有 用 处 的 ， 其 定义 为 
C(z) = mi(egyop(z) - e- 和 (yp(z)). (5.2) 
方程 (5.1) 的 边界 条 件 为 Dirichlet 型 ， 其 形式 为 
%(0) = %p(0) +Do，V0) =%p(D) (5.3) 
最 后 ， 用 比例 变换 z = Xp :X, 我 们 引入 无 量 纲 的 量 
opC0 = 9y(o， ep(CX) = gup(oj， mo = 0， ceO0 = [5.4 
其 中 Xp = Vs61g5ni 是 Debye 长 度 ， 由 方程 (5.2) 和 (5.4) 可 得 到 
2p( 瑟 ) 一 arcsinh(S ) = in(3( c(X) 十 4 十 c( 瑟 ))). 
方程 (5.1) 变 成 后 
2 = ee() 一 e90) 一 c()， 《5.5) 
其 边界 条 件 


po) = pp(oO) + wo, CD) = pp(D)， 其 中 工 = 雹 ， (5.6) 
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5.2 利用 MAPLE 求解 非 线 性 Poissonm 方程 


方程 (5.5) 和 边界 条 件 (5.6) 描述 了 一 个 非 线 性 边 值 问 题 ， 它 只 能 数值 地 求解 .MAPLE 不 能 
直接 解 一 个 边 值 问 题 ， 为 了 求解 ， 必 须 找 到 一 个 合适 的 数值 方法 . 我 们 选择 有 限 差 分 法 (参见 日 j). 
在 区 间 [0, 忆 上, 我们 定义 N+L1 个 点 Xo =0,X,..,XN 一 荆 的 网 格 , 并 标记 六 = Xi+1 一 Xi 一 
0,1,...,N-1 和 woi=wpX)pp=ppD(Xijci=c(Xi). 于 是 方程 (5.5) 在 内 部 点 的 离散 化 形式 


2 和 人 ， 
志 ( 经 计生 一定 2)=ew -。 人 一 (5.7) 


其 中 导 = iii 十 ja). 加 上 边界 条 件 
0 三 DO0 0，mAN 一 名 DDN， 


api 十 bip2 三 有 (pl) 
Di_12i 1 十 aipi 十 iopi+l = Toi)， 对 于 ?7 一 2 一 2 
DN_2pN_ 2 十 QN_IDN_1 = FFN_I(PN-1) 
其 中 
2 一 Ci 一 一 (2 -1 十 Di;)， 
本 一 jy(e9l 一 e 9l 一 cl) 一 bop0， 
Fi = jhN_ie*n- 一 e 9 一 CN-1) 一 PN-IN， 
开 = ji(ec 一 e 2 一 CN) 对 于 =2,...,AN-2. 
我 们 把 上 面 的 方程 组 写成 矩阵 形式 


4. 访 = 天 (9) 
其 中 4 是 一 个 对 称 的 三 对 角 线 矩阵 ， 其 非 零 元 素 为 
双 汪 二 4 二 10 


其 中 访 是 分 量 为 il,.… ,PN-i 的 列 向 量 . 我 们 将 使 用 Newton 法 (参见 革 ) 解 此 非 线性 方程 组 : 
定义 向 量 函 数 


AAA 


C(O) =4. 入 一 天 (9). 


OUE+1) 一 OUb) 十 疡 (be)， 


Newton 法 定义 了 系统 C(O) =0 的 近似 解 序列 


站 (人 2 


校正 五 (9 是 方程 组 
G(O(o) ) 十 .7(O( ) 厅 (5) 一 站 





第 五 章 半导体 的 内 部 场 65 


的 解 ， 其 中 Jacobian .fp(9) 包含 了 向 量 函 数 G(2() 的 偏 导数 .系统 的 第 ; 个 方程 是 





一 1 
DGi(OU)) 
(KR) 》、 二 要 __ 
5 一 1 7 
DG 口 下 
0 
Dwp; 了 wp; 了 ) 了 


所 以 Jacobian 可 分 成 一 个 常数 矩阵 4 和 一 个 依赖 于 当前 迭代 的 对 角 线 矩阵 妃 (o 史 ). 校正 的 线性 
方程 组 变 成 
(4 站 (po)) 广 各 = 冯 20) -4009， (5.9) 


其 中 Di = 赋 (e +e-%). 因为 物理 的 原因 ， 建 议 用 固定 势 2p 估计 初始 值 名 0). 如 果 


1 人 +) 一 宙 罗 es = | 让 人 1 = max|E | < e， 
其 中 e 是 一 个 允许 的 误差 ， 则 终止 欠 代 过 程 . 
证 明 此 迭代 过 程 的 收敛 性 是 一 个 复杂 的 任务 . 然而 对 于 参数 在 物理 上 的 实际 数值 (2]), Newton 
法 给 出 问题 的 唯一 解 ， 并 且 有 好 的 收敛 性 . 
为 在 MAPLE 中 解决 此 问题 ， 我 们 取 一 个 半导体 模型 ， 它 在 区 域 0, 刀 的 中 点 处 有 P-N 跳跃 ， 
其 中 工 = 10 及 杂质 分 布 为 
c(X) = tanh(20( 椰 一))， 


为 了 简化 , 我 们 选取 一 个 步 长 为 应 = 天 = 1/AN 的 均匀 栅 极 ， 其 中 N 是 网 格 点 数 . 用 数组 phi, phiD， 
hp 和 Fp 分 别 表示 2,6p,jir 和 到. 三 对 角 线 矩 阵 将 由 对 角 线 和 非 对 角 线 向 量 AAp 和 B 表示 ， 其 中 


4;i =ai，4pi=ai 一 ji(e 和 和 十 e ii) 已; 一 1 


MAPLE 程序 的 第 一 部 分 是 : 


#dimens1ionless formulation，X,L in units of Debye:s 上 Length 
N:=20: 工 :=10.0: Ph:=LAN: 
U0O:=0:  #normalized Potential on the boundary 
#concentration of impurities - region of N-P jump 
c := 七 anh(20.0*(X/AL-0.5) ) : 
#mesh of N+lL Point [or reglion 0. .上 
Xp :=atrIray(0. .N) : 
for 1 from 0 to N do xpfi] :=i*h od， 
#array of Concentrations Ca and builtin PotentIalLl PhiD 
phiD:=array(0. .N) : 
Ca:=array(0. .N) : 
for 1 from 0O to N do 
Ca[i] :=evalLf(subs(x=xp[i] ,cy) ) ; 
phiD[i] :=arcsinh(Ca[i]/V2) 
od : 


为 了 求解 三 对 角 线 系统 (5.9), 我 们 用 标准 库 函 数 1insolve, 但 由 于 没有 考虑 和 矩阵 的 稀 朴 性 ， 它 运 
行 的 较 慢 . 因此 ， 我 们 对 三 对 角 线 系统 实行 没有 转轴 的 标准 ZU 分 解 ， 它 运行 很 快 ， 且 所 需 存 储量 


VMVVVYVVMVMVVVMVYVMVMVVMYVMVYVV V 
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少 . 函数 solvetridiagCn，&A，B，F) 求解 ”个 线性 方程 的 对 称 三 对 角 线 系统 4 是 主 对 角 线 辐 
量 ， 忆 包含 非 对 角 线 元 素 ， 己 是 右 端 的 向 量 . 此 画 数 返回 的 解 为 数组 [0. .n+i], 下 标 0 和 ?十 1 
是 向 量 访 对 应 的 分 量 (参见 算法 〈5.1)) 
茜 法 5.1 MAPLE 函数 soLIvetridiag 和 norma 
solvetridiag:=proc(N，A，B，F) Local alfa，beta，Ppom，Xx，i; 
# Solution of a linear System of N equat1lons 
# with tridiagonal Symmetzic matrix，Wwhere 
# AiSs a Vector diagonal of elements ， 
# B is a Vector of off-diagonal elements and 
# 了 is.a vector of right hand Site， 
#TreSsitilt is a Vector (0. .N+1) 
x:=array(0..N+l1,[(O0)=F[O] , (CN+1)=FLN+1]]) ; 
alfaf[l]:= -BELlJ/A[1] ;beta[1]:= FL1]/ALL] ; 
for 1 from 2 to N-1l1 do 
pom:= A[i]+B[i-1]*alfa[i-t] ; 
alfa[i]j:= -B[Li]j/ponm; 
beta[Li]:= (FL[Lij-BLi-t]j*betaLi-1lj)/vpom 
od ; 
xfN]:= (FE[N]-BEN-1]jxbeta[N-1L])V/(CALN]+BIN-1i]*ralfaLN-t] ) ; 
for 研 from N-1 by -1 to 1 do 
Xxr[i]:= alfat[i]*x[i+l]+beta[i] 
OoOdQG ; 
eVal(X) 


enQj  #SolvetIidiag 


nornma:= Proc(N，X) 1ocal mx,i,ponm; 
#Calculation of a infinity Dorm for ti-D array X，I=1T..N 
mX:=O; 
for 1 to N do 
pom:=abs(X[i]y) ; 
iT Pom > mx 七 hen mxX := Pom II 
od ; 
ZIX 


end ; 


现在 实现 Newton 法 就 十 分 简单 了 .我们 定义 函数 iterate(), 它 执 行 和 迭代 ， 从 老 的 势 计 算 新 的 势 
phi, 直到 校正 瑟 的 范 数 小 于 允许 值 epsilon. iterate() 也 返回 最 后 两 步 迭 代 之 差 的 范 数 . 我 们 
取 epsilon= 0.001. 
算法 5.2 定义 多 代 函数 
iterate:=proc(pPhi) local ，nor， 了 有，ex，AP，FPp; 
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#1IteratiIons Tor phi begin 
DOT := ; 
while nor > epsilon do 
for ii to N-1L1 do 
ex := exp(phifti]); 
Ap[i]l] := Ali]j - hpLi]jx(ex+1/ex) ; 
Fp [i] Fpoc[i] + hpfi]j*(ex-t/ex) - A[i]*phi[i] ; 
ifi= lthen Fpfli] := Fp[li] - B[It*phi[2] 
elif ii = N-Tt then 
FpfEN-t] := FpIEN-1] - BLN-2]j*xphiLN-2j 
elLSse 
Fp[i] := Fp[i] -~ B[i-1jx*xphifi-li] - B[ijJ*phif(Li+ij 


革 ; 
od ; 
H:=solvetridiag(N-1L,Ap,B,FP) ; 
for 1 to N-1l do 
phiri] := Hti] + Phi[i]; 
nor := Dorma(N-1 ,8B) ; 
cd ; 
oOdQ ; 


end; 共 iterate 


#generation of vectors A,B and avVverage StepP hp 
B := array(0..N-1): A := array(1..N): hp := array(1..N-1L) : 


for 二 from 0 to Ni do Blij := 1/(xPLi+li]j-xPpLij)y od: 
for 1 from 1 to N-l do ALi] := -(BL-ti]+BLi]) od: 
for 1i from 1 to N-l do hp[i] := (xp[i+l]j-xp[Li-1li])/V2 od: 


Phi := array(0. .N) : 
#iDitizal apPProximation of Phi 
Phi := eval(phipD) : 
#jntroducing boundary condition 
Phi[o] := Phi[oJ+UO: 
#EeDeration of vectors of Tight hand slide Fpoc and FPp 
Fpoc := array(0..N): FPp := array(0. .N) : 
for i to N-1 do Fpoc[ij] -hpfLij*CaLij od: 
Fpoc[1] := Fpoc[i] - 8B[0]j*phi[o] : 
Fpoc[IN-1] := Fpoc[IN-1] ~- BIN-1]*phi[N] : 
#introducing the boundary conditions into FP 
Fpfo] := phi[oj]: Fp[N] := PhiN]: 
epsiion := 0.001: #error of the Fresult 
#SOolLuUtion for Phi 
iterate(Phi); #returns a Value of norm for iteruj :=proc(Phiy) 


.1899345025 10-6 
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68 
#gETaph of builtin Potential phiD 
cphiD:=plot(arcsinh(c/2) ,x=0. . 工 ，color=black，1linestyle=2) : 


# Plot of resulting phi and phiD 


> 
> 
> 

> cphi:= plot([seq([xp[i] ,phi[i]],i=0..N)] ,color=black) : 
> Plots[ldisplay] ({Gphi,GphiD}) ; #end 


内 部 势 和 固定 势 的 图 形 如 图 5.1. 
图 5.1 wo 三 0 的 内 部 势 和 固定 势 


一 


0.4 
1 


0.2 
】 


na 


5.3 MATLAB 解法 
在 前 一 节 里 ， 利 用 问题 的 特殊 性 质 (如 系统 (5.9) 的 算 阵 的 三 对 角 线 性 ), 给 出 求解 一 个 纯 数 
值 问 题 的 比较 快 的 MAPLE 算法 . 当然 ， 象 MATLAB 这 样 的 数值 系统 更 适合 求解 纯 数 值 问 题 . 在 


MATLAB 中 , 为 了 处 理 稀疏 矩阵 ， 我 们 利用 标准 结构 ， 可 以 给 出 解决 问题 的 一 个 非常 简单 的 程序 . 
MATLAB 可 用 函数 spdiags 定义 稀疏 矩阵 ， 标 准 的 矩阵 运算 能 非常 有 效 地 处 理 这 样 的 稀 朴 矩 


阵 ， 这 样 可 用 标准 的 符号 表示 线性 系统 4.z = j 太 的 解 ， 


>> X=ANf 
我 们 再 用 Newton 法 ,求解 非 线性 Poisson 方程 (5.7) 的 离散 化 形式 .用 函数 spdiagsx 定义 三 对 角 
线 矩 阵 4 和 对 角 线 矩阵 方 . MATLAB 程序 的 结果 是 比较 直观 的 ， 


AhPIogram for computing the internal potential in a semiconductor 


1I1=10;Dn= 80， 
uO = 0.2 heXxternal potential 
xl = (0:1/n:1)， mesh 

clL = tanh(20.0.*(x1./ti-0.5)) YXconcentration of impurities 
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图 5.2 zuo 三 0.2 的 内 部 势 和 固定 势 





Phid = asinh(c1l*O.5) hbuiltin Potential 
h = XlL(2:n+l1) - xl(1:n) % steps 
b = 1 ./h 


htzidiagonal matrix 人 
A=Spdiags([Lb(2:n)-(b(1:n-ti)+b(2:n)) b(1:n-t)],-1:1,n-1,n-1) 


hs = (h(1:n-t)+h(2:Dn))*0.5 ” %average steps 
c = c1(2:zn) 


t0 = ~hs .*C 
fo(Ct) = f0(1)-(Phid(1)+u0)*b(1) ; 
foCn-l) = fOCn-l)-pPhidCnt+l1)*bOCn) ; 


Phid(2:Dn) Ah initial approximation 


Phi 


Dor = 1 加 iteration 
while Dor > 0.001 
eXx=exp(Phi); f=f0O+hs. 半 (ex-1./ex)-A*phi 
DPp=spdiags (hs .*(ex+1./ex) ,0 ,n-t,n-1) 
H=(A-DP) NE 
nor = Dorm(H ,inpnf) 


Phi = phi + 
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end 


Phiv=[phida(1)+u0;Phi;Pphid(n+l)] %with boundary conditions 


Cj]f ; 
PJLot(xl ,Phiv, -rr:,Xl,pPhid,::g)) 
hold ; 
text(4.6,-0.4,)，Builtin Potential ); 
text(6,0.3,)Internal potential?) ; 
xlabel(:Xx)?); ylabel(phi，) ; 

hh end 


当 外 势 wo = 0.2 时 ， 此 结果 的 图 形 由 图 5.2 给 出 . 
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6.1 引言 


这 一 章 我 们 将 讨论 某 些 最 小 二 乘 问 题 ， 它 是 在 使 用 坐标 测量 技术 的 制造 业 的 质量 控制 问题 中 
出 现 的 tt5. 对 于 大 批量 生产 ， 机 器 生产 的 是 零件 ， 重 要 的 是 要 了 解 生产 的 零件 是 否 满足 质量 要 
求 . 因此 ， 通 第 需要 从 生产 线 上 抽取 一 些 样 本 零件 进行 测量 同时 与 标准 件 进行 比较 .如果 它们 不 
满足 特定 的 公差 ， 这 机 器 可 能 必须 维修 或 调整 以 生产 更 好 的 截 件 . 


6.2 拟 合 平面 上 的 直线 、 和 矩形 和 正方 形 


用 直线 去 拟 合 一 组 点 以 最 小 化 已 知 点 到 这 条 直线 的 距离 的 平方 和 ， 这 个 问题 来 源 于 惯性 张 量 
主轴 的 计算 问题 . 在 出 中 这 个 事实 被 用 于 以 直线 或 平面 拟 合 三 维 空间 点 集 的 问题 ， 它 是 通过 求解 
3x3 和 矩阵 的 特征 值 问 题 来 解决 的 . 

在 这 一 节 我 们 将 研究 基于 奇异 值 分 解 的 不 同 的 算法 ， 它 将 允许 我 们 用 直线 、 和 矩形 和 正方 形 拟 
合 平面 土 的 一 组 观测 点 ， 对 于 三 维 空 间 的 某 些 问题 它 也 同样 有 效 . 

我 们 首先 考虑 以 直线 拟 合 平面 上 的 一 组 已 知 点 已, 疡 ，. .也 .的 问题 .我 们 用 (zp ,ypi),(zP,VP )， 
.…,(zPyPu) 表示 它们 的 坐标 . 有 时 我 们 把 所 有 点 的 > 和 坐标 表示 为 向 量 是 有 用 的 .我们 将 使 
用 xP 表示 向 量 (zPl,zP,...zP), 类 似 地 用 yP 表示 ?4 坐标 . 

我 们 要 解决 的 问题 不 是 线性 回归 问题 . 线性 回归 意味 着 用 线性 模型 y = az 十 拟 合 已 知 点 ， 
也 就 是 说 要 确定 两 个 参数 c 和 使 得 剩余 平方 和 最 小 : 

> = min， 其 中 rm 一 UVP; 一 GZP, 一 . 
i 一 1 
这 个 简单 的 线性 最 小 二 乘 问题 在 MATLAB 中 可 使 用 下 面 的 语句 求解 (假设 x 三 xP 和 y 三 yP) 
>> P =【 x ones(size(Xx))]Ny; 
>> a= pi);  b = p(2); 
在 线性 回归 的 情形 下 ， 点 天 到 所 拟 合 线性 函数 的 y 坐标 之 差 的 平方 和 被 极 小 化 了 ， 然而 现在 我 们 
要 极 小 化 的 是 这 些 ,点 到 所 拟 合 直线 的 距离 的 平方 和 . 
在 平面 上 我 们 能 够 用 如 下 方程 唯一 地 表示 一 条 直线 


c 十 ?1 十 ?222 一 0， D4 十 722 一 1. (6.1 ) 


单位 向 量 (ra,m2) 正 交 于 这 条 直线 ， 一 个 点 在 这 条 直线 上 当 且 仅 当 它 的 坐标 (z,y) 满足 第 一 个 方 
程 . 另 一 方面 ， 如 果 书 = (zP,yP) 是 不 在 直线 上 的 点 ， 我 们 计算 


~ 一 C 十 ?1ZP 十 了 2VP， 
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则 |r| 是 它 到 这 条 直线 的 距离 . 因此 如 果 我 们 想 要 确定 一 条 直线 ， 使 给 定点 到 它 距 离 的 平方 和 最 
小 ， 我 们 必须 求解 一 个 约束 的 最 小 二 乘 问题 


77? 
el| = >》 7 一 Inin 
i 一 1 


满足 
1 2ZP， 2yP Pr1 
1 2ZP， 2P 7r2 
人 2 
?1 | 三 和 ?3 十 ma 一 二 (6.2) 
1 7ZP， 2VP。 7 


令 A 是 线性 方程 组 (6.2) 的 矩阵 ， x 表示 未 知 向量 (c,ma,mz) ,同时 r 是 方程 的 右 端 . 因为 正 交 
变换 y = Qrr 保持 范 数 不 变 (对 于 正 交 和 矩阵 Q， llylz = llrll>), 我 们 可 以 按 如 下 所 述 去 解决 问题 
(6.2). 

首先 我 们 计算 A 的 CR 分 解 ， 同 时 把 我 们 的 问题 简化 为 求解 一 个 小 的 方程 组 ; 


711 72 713 


0 722 723 
本 0 0 六 33 下 
A=-QR 一 QAx== 0 0 0 1 | 一 QTF (6.3) 
人 2 
0 0 0 


因为 非 线性 约束 仅仅 包含 两 个 未 知 量 ， 现 在 我 们 需要 求解 


全 NI 满足 mn2 十 mn2 一 1. (6.4) 
0 733 722 0 


算法 6.1 函数 clsq 
function [c,D]j = clsq(A,dim) ; 
% solLves the constrained least Squares Problem 
4 A (cn ”Oosubject to norm(n,2)=1 
4 1ength(n) = dim 
% [c,Dn]j = clsq(A,dim) 
[m,P] = size(A) ; 
if P“<“ dimn+1l1，error (Dot enough tunknows');j end; 
if m< dim，error (Dot enough equations :); end ; 
m = min (mn，P); 
R = triu (qr (A) ) ; 
[U,S,V] = svd(RCP-dim+1:m,p-dimn+1:Pp)); 
nn = V(C:,dim) ， 
c = -RML:p-dim,1:P-dim)NRCL:P-dim,P-dQim+1:P)*n; 
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问题 (6.4) 是 形 如 |Bxilz = min 并 满足 |xljz = 1 的 问题 . 极 小 值 是 吾 的 最 小 奇异 值 ， 同 时 间 题 的 
解 可 由 相应 的 奇异 向 量 给 出 f2]. 于 是 我 们 可 以 由 2 x 2 矩阵 的 奇异 值 分 解 来 确定 ml: 和 nz. 把 这 些 
值 代 入 方程 组 (6.3) 的 第 一 个 分 量 同时 令 它 等 于 零 ， 我 们 就 能 计算 出 c. 稍 作 推广 ， 我 们 用 dim 表 
示 法 问 量 m 的 维 数 ， 则 用 于 求解 问题 (6.2) 的 MATLAB 函数 由 算法 6.1 给 出 .我们 用 如 下 的 主 程 
序 检验 范 数 clsd: 

>> % mainline .mm 

>> Px = [1:10]， 

>> Py= [0.214.02.63.64.95.36.57.8 8.0 9.0]， 

>> A = [ones(size(Px)) Px Py] 

>> [c，Dn]j = clsq(A,2) 
由 程序 mainline 计算 出 的 直线 为 : 0.4162 -- 0.7057z + 0.7086y = 0. 我 们 现在 要 画 出 这 些 点 和 拟 
合 的 直线 . 为 此 我 们 需要 由 算法 6.2 给 出 的 画 数 ployline. 图 形 由 如 下 附加 于 程序 mainline 的 命 
令 给 出 . 结果 如 图 6.1. 

>> ClLf; ho1ld on， 

>> axiSs([-1，1d+ -1，11]》 

>> PLot1Line(PX,Py,:o,c,n，:-?) 

>> holq oftf ; 


图 6.1 拟 合 一 条 直线 





工 法 6.2 函数 Plotline 
ftnction P1lot1line(X,y,sS,c, 了 ,七 ) 
Ah PlLots the set of points 〈(x,y) using the Symbol s 
Ah and plots the Straight 1ine c+Dl*+*Xx+n2+y=0 Using 
4h the line type defined by 七 
PlIot(x，y,s) 
xrange = [min(x) max(x)]; 


yrange = [min(y) max(y)] ; 
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if Dn(L)==0，% c+n2yry=0 => yY = -cn(2) 
Xxl=XTange(l); yl = -c/n(2) ; 
X2=xrange(2); yY2 = y1 

elseif Dn(2) == 0，% c+nl*x=0 => X = -cmmn(1) 
yi1=yrange(1l); xl = -cn(C1l) ; 
y2=yTanget2);i X2 = X1; 

elseif xrange(2)-Xxrange(t)> yrange(2)-yrange(1t) ， 
xl=Xxrange(1); yl = -~-(c+n(C1)*xLt)/n(2) ; 
X2=Xrange(2); y2 = -(c+n(1)*x2)Vn(2) ; 


eJ]Sse 


yl=yrange(1); xl = -(c+n(2)*yl)An(1) ; 
y2=yrange(2); x2 = -(c+n(2)*y2)/n(1) ; 
ena 
P1Lot([xl，x2] ， [yl,y2] ,t) 


拟 合 两 条 平行 线 


要 拟 合 两 条 平行 线 ， 我 们 需要 两 组 点 . 我 们 用 {P} 三 1 2PD 和 {@) 了 =] 
组 点 . 因为 这 两 条 线 是 平行 的 ， 它 们 的 法 线 向 量 必 须 是 相同 的 . 于 是 这 两 条 线 的 方程 是 


cl 十 Ti17Z 十 mn2y 一 0， 
c2 十 ?17 十 mr2y 一 0， 
7 十 ?722 一 1. 


如 果 我 们 把 两 组 点 的 坐标 代入 这 些 方程 我 们 就 得 到 了 如 下 的 约束 最 小 二 乘 问 题 : 


| = r7 一 min 
2 一 工 
满足 
1 0 雍 门 2 P) 
1 0 7ZP 2VP 
Cl 7 
1 0 7 C 72 
人 2 |=| - 和 并 十 吗 = 1 

0 工 QQ yaQa 人 1 
0 工 


ZQ2> ya， ?2 7p 二 g 


0 1 ze@。 yao，。 
我 们 可 以 再 一 次 使 用 项 数 clsq 解决 这 个 问题 : 


>> % mainparal1el.m 

>> PX = [1:10]， 

>> Pym[0.21.02.63.64.95.36.57.88.09.0]， 
>> Qx = [1.5 2.63.04.35.06.47.68.5 9.9 ]， 


,9 表示 这 两 


(6.5) 
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>>> 
>> 
> 
>>> 
> 
> 之 
>> 
>>> 
>>> 


Qy= [5.87.29.1 10.5 10.6 10.7 13.4 14.2 t14.5]， 

A = [ones(size(Px)) zeros(size(PX)) PX Py 
Zeros(size(Qx)) ones(size(Qx)) Qx Qy 】 

[c，Dp] = clsq(A,2) 

Cl， hold on; 

axis([-L 11 -1 17])》 

PlLotline(Pxr,Py,o,c(1L) , 开 ，-:) 

PLot1line(Qx ,Qy，,”+，,c(2) ,了 一) 

hold off ; 


由 程序 mainparallel 得 到 的 结果 是 两 条 直线 ， 如 图 6.2. 


0.5091 一 0.7146xz 十 0.69967 
一 3.5877 一 0.71467z 十 0.69967 


| 
一 本 一 


图 6.2 拟 合 两 条 平行 的 直线 





拟 合 垂直 的 直线 
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为 了 拟 合 两 条 垂直 的 直线 ,我 们 可 以 按照 类 似 于 平行 线 的 情形 来 做 . 如 果 (na,mz) 是 第 一 条 直 


线 的 法 线 向 量 ， 则 由 于 正 交 性 第 二 条 直线 一 定 有 法 线 向 量 (-m2,mi). 因此 我 们 仍然 有 四 个 未 知 参 
数 cl,cz,mi,?2. 如 果 玉 是 与 第 一 条 线 相 关联 的 点 ， 9 是 与 第 二 条 线 相关 联 的 点 ， 我 们 就 得 到 了 
如 下 的 约束 最 小 二 乘 问题 ， 


ll = > ，r2 = min 


一 荆 





76 
满足 
1 0 7ZP， 2VP， 
1 0 ZzP 27P。 
C1 7 
1 0 7ZP。 VP。 Co 72 
0 1 yo，， 一 ZaQ， 721 
0 1 ye 一 zae， 722 5 


0 工 VyQ@。，。 一 <Qs 


全 ”Camder ad CC Von Aat 


一 和 ?73 十 ?2 一 1 (6.6) 


为 了 计算 两 条 垂直 直线 的 方程 ， 我 们 仅仅 需要 改变 在 mainparallel 中 和 矩阵 4 的 定义 .为 了 得 到 


更 好 的 绘图 对 于 第 二 组 点 我 们 同样 选择 不 同 的 数值 . 
>> % mainorthogonal . 圈 
>> PX = [1:10]， 
>> Py =[0.21.02.63.64.95.36.57.8 8.0 9.0]， 
>> Qx= [Oili3567]， 
>> Qy= [1286330]， 
>> A = [ones(size(Px)) zeros(size(Px)) Px  PYy 


上 


>> Zeros(size(Qx)) ones(size(Qx)) Qy -Qx ] 
>> [c，n] = clsq(A,2) 
>> Clt; hold on; 
>> axis([-1 11 -1 13]) 
>> axis(:equal:) 
>> plLotline(Px,Py,”o:,c(1) ,mn,， -~:) 
>> Dn2(1) =-D(2); Dn2(2) = DCt) 
>> PLotline(Qx,Qy,:+”，,c(2) ,nD2，?-)) 
程序 mainorthogonal 计算 出 两 条 垂直 的 直线 


一 0.2527 一 0.63847z 十 0.76977V 
6.2271 -- 0.76977 一 0.63847 


我 们 同样 能 够 对 每 一 组 点 独立 地 拟 合 两 条 直线 : 
>> [c，Dn] = clsq([ones(size(Px)) Px Py] ,2) 
>> plotline(Px,Py,?+?,c,n,::)) 
>> [c，nh] = clsq([ones(size(Qx)) Qx Qy] ,2) 
>> PLotline(Qx,Qy,:+: cn, :7) 
>> hold off; 

独立 计算 出 来 的 直线 在 图 6.3 中 用 点 线 来 表示 . 


拟 合 一 个 矩形 
拟 合 一 个 和 矩形 需要 四 组 数据 


0 6 一 1 .9， 了 


| 
呈 吕 


1 





第 六 章 某 些 最 小 二 乘 问 题 7 


图 6.3 拟 合 两 条 垂直 的 直线 





为 矩形 的 边 是 相互 平行 或 垂直 的 ， 我 们 可 以 非常 相似 于 前 面 来 进行 . 四 个 边 将 有 方程 


a: cl 十 Pi 十 ma2y 一 0 
D: cz 一 mo 十 ly 一 0 
c: cs 十 miz 十 na2y 一 0 
C : c4 一 ?2 十 也 17 一 0 
n3 十 na 一 1. 
代入 四 组 点 我 们 得 到 如 下 的 约束 最 小 二 乘 问题 
|rll = 2 于 = min 
?一 工 
满足 
1 0 0 0 zP， 2P， 
1 0 0 ZP， 2VP， 
0 1 0 0 VQ1 一 炎 @Q) cl 
RE 网 医 
0 1 0 0 一 亿 C 72 
yyQ。 Ca 3 E 利 7 十 722 三 二: (6.7) 
0 0 1 0 27R VR， C4 
人 7p 十 g 十 r 十 3 
0 0 1 0 7ZR。 2R: 2 
0 0 0 75S1 一 尼 S1 
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我 们 不 再 明确 地 给 定 四 组 点 的 坐标 ， 而 是 使 用 MATLAB 中 的 函数 ginput 用 鼠标 输入 这 些 点 . 

[X,Y]=ginput(N) 从 当前 的 坐标 下 得 到 这 六 个 点 同时 以 长 度 为 N 的 向 量 和 和 Y 返回 z 坐标 和 y 
坐标 . 这 些 点 必须 按 顺 时 针 方 向 或 反 时 针 方 向 来 输入 ， 其 次 序 要 与 矩形 的 边 的 顺序 相同 : 下 一 个 
边 总 是 正 交 于 前 一 个 边 . 


> 
>>> 
之 > 
>> 
之 > 


人 人 
>> 
>>>> 
> > 
>>> 
>>>> 
>>>> 
之 > 
之 > 
之 之 


之 之 
人 >> 
定 > 
>> 


> 
>> 
>>>> 
>> 


>>> 


>>>> 
> 之 
之 > 
定 > 


之 > 


> > 


% Tectang1e .m 
ClLf; hold on ; 
axis([0 310 0 10] ) 


axis(?equal:) 


P=100 ; Qq=100 ; r=t00:; s=100， 


disp(enter points P_i belonging to side A)?) 


disp(?by Clicking the mouse in the graphical window.，) 


dispP(:Finish the input by pressing the Return key)，) 


[Px,Py] = ginput(p); Plot(Px,Py,，o)) 


disp(:enter points Q_i for side B :) 


[Qx ,Qy] = ginpput(q); Pilot(Qx ,Qy，:X) ) 
disP(:enter Points R_i for side C ，) 
[Rx,Ryj = ginput(F); Plot(Rx,RY，?*)) 


disp('enter points S_i for side D ，) 


[LSx,Sy]j = ginput(s); PLot(Sx,Sy，,?+，) 


zZpP = Zeros(Size(PX) ) ; 
2Zq = Zeros(sSize(QX) ) |; 
ZI = Zeros(size(RX) ) ; 
ZS = ZeIos(Ssize(Sxy) ) ; 
A= [opzpzpzp Px 


2q oq zZqd zZq Qy - 


ZFT ZF Or Zr RX 


zZS ZS ZS 0oS Sy -Sx] 


[c，Dn] = clsq(A,2) 


Py 
Qx 
Ry 


ones(size(KPx)) ， 
ones (size(Qx)) ; 
ones (size(RX) ) ; 


ones(size(SX) ) ; 


沁 compute the 4 corners of the rectang1le 


B = [n [-n(2) n(1)]， 


鲜 王 
X= [XX(C:,1)] 
plot(X(1,:)，X(2，:)) 


] 


-B* [c([L1331])*; c([2244])?] 


Ah compute the individual Lines，if possible 
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>> if all([sum(op)>1 sum(oq)>1 sum(or)>1 sum(os)>1] ) ， 
>> [cl1，nlj = clsq([op Px Py] ,2) 
>> “” [c2，n2]j = clsq([oq Qx Qy] ,2) 
>> [c3，n3] = clsq(C[or Rx Ry] ,2) 
>> “ [c4，n4] = clsq([os Sx Sy] ,2) 


>> “ % and their intersection Points 

>> aaa = -[ni(1) ni(2); n2(1) n2(2)]\[ct; c2] ; 
-[n2(t) n2(2);，n3(1) n3(2)] 狼 [c2; c3] ; 
>> ccc = -[n3(1) n3(2); n4(1) n4(42)]\[c3; cd4j] ; 
>> ， ddd = -[n4(1) n4(2); nl(C1) nl(2)]\5c4; cl] ; 


之 之 


C 
避 
由 


>> “plot([aaa(1) bbb(1) ccc(1) dddq(1) aaa(1)] ，. .， 

>> [aaa(2) bbb(2) ccc(2) ddd(2) aaa(2)] ,，: )) 

>> endq 

>> holdq ofrf ; 
程序 rectangle 不 仅 可 以 计算 矩形， 而 且 同 样 可 以 对 每 一 组 点 拟 合 单独 的 直线 . 结果 都 显 东 于 图 
6.4 中 . 为 理解 某 些 语句 ， 加 一 些 注 解 是 必要 的 . 为 求 出 矩阵 顶点 的 坐标 ， 我 们 计算 相应 边 直 线 的 
交点 . 我 们 需要 求解 线性 方程 组 


1Z 十 ?2 三 一 Cl Ce ce- Cl1 上 c-( ?1 | 
一 22 十 mV 三 一 C2 C2 一 ?2 ml 
因为 C 是 正 交 的 ， 我 们 能 够 简单 地 用 互 = CT 乘 以 方程 的 右 端 得 到 所 要 的 解 . 对 于 4 个 顶点 只 要 
适当 的 安排 方程 ， 使 得 矩阵 C 总 是 方程 组 的 系数 定 阵 ， 用 如 下 简捷 的 语句 我 们 就 能 够 同时 计算 所 


有 4 个 顶点 的 坐标 . 
>> X= -Br [c(1331]):;，c(C([22 4 4]) 7 . 


拟 合 正方 形 
如 果 用 |d| 表示 正方 形 的 边 的 长 度 ， 则 按照 反 时 针 的 方向 四 个 边 有 方程 


Cl 十 mnIZ 十 ?927 一 
Cc2 一 9227 十 1 三 
d 十 ci 十 Pa 十 mi27 
Q 十 ca 一 P2Z 十 ?911 


2 2 
1 十 22 一 


(6.8) 


Sm 克 R 


| 
王 品 口 口 品 


四 个 边 的 走向 是 重要 的 : 在 第 三 和 第 四 个 方程 中 的 参数 d 应 有 相同 的 符号 ， 如 果 我 们 选择 顺 时 针 
方向 ， 则 直线 6 和 4 方程 的 法 向 量 必须 改变 符号 ， 即 我 们 必须 使 用 方程 


厅 “ c2 十 ?22 一 ?12 0， 
0: d+cz+7?20 一 7 一 0. 
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图 6.4 拟 合 一 个 矩形 





下 面 我 们 假设 按 反 时 针 方 向 的 四 个 边 的 四 组 点 为 


0 


则 我 们 的 问题 就 变 为 


满足 


je j 全 


0 


| 


VS: 


VS5。 


1 一 1 .9 和， 民 天 一 1...,7， 9 一 1 ...，5. 


人 


72 


党 和 mnz 十 m2 一 荆 . (6.9) 


7P 十 9 十 7 十 


我 们 可 以 重新 使 用 程序 rectangle 的 大 部 分 . 变化 仅仅 在 于 为 绘制 正方 形 重新 定义 矩阵 4 和 向 量 
c. 在 输入 这 些 点 时 我 们 把 正方 形 的 边 按 反 时 针 方 向 排列 . 


>> A= [zpopzp Px Py 
>> zq zq oq Qy -qzx 
>> or oOTY ZT RX  RYy 
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>> os ZS os  Sy -Sx] 

>> [cc，Dn] = clsdq(A,2) 

>> /4 compute the vector of constants for the four 1Lines 

>> c(1) = cc(2); c(2) = cc(3); c(3) = c(1)+ccCL) ; 

>> c(4) = c(2)+ccf1);i  c=c(:); 

>> %h compute the 4 corners of the square 

>>B = [nn [-n(2) n(1)]7 

>> X= -Br [fc([t331])';c([2244])?] 

>> X= [XXXC:,1+)] 

>> PlLlot(X(1,:)，X(2，:)) 

>> hold ofif ; 
在 图 6.5 中 给 出 了 最 优 的 矩形 和 拟 合 最 优 的 正方 形 ， 注意 到 在 极端 的 情况 下 ， 我 们 可 能 得 不 到 我 
们 币 望 的 结果 . 参看 图 6.6, 这 里 对 于 四 个 点 已 = (2.5,1.5)Q = (6.5, 4), 已 = 79)9 三 (2 8) 我 们 
计算 出 “最 优 的 正方 形 ” 似乎 这 个 正方 形 不 是 最 优 的 拟 合 ， 然而， 如 果 注 意 到 点 已 属于 第 一 条 边 
点 Q 属 于 b 点 刀 属 于 c 同 时 3 属于 d. 这 四 个 点 刚好 位 于 这 些 边 所 在 的 直线 上 ， 因 此 它们 的 
距离 的 平方 和 是 零 ! 


图 6.5 拟 合 拖 形 和 正方 形 





6.3 ” 拟 合 超 平面 


函数 clsq 可 以 用 于 对 Rn" 中 的 点 拟 合 (” - 1) 维 的 超 平面 . 令 和 矩阵 瑟 = [xl,x2, ,xm] 的 
行 表示 已 知 点 的 坐标 ， 即 点 忆 有 党 标 xi 三 和 人)1 王 1 rm 则 调用 
>> [fc，N] = clsq (Lones(m,1) X] ，Pm) ; 
就 可 以 确定 正规 形式 的 超 平面 c 十 Nam 十 Noyz 十 … 十 Nayn 一 0. 
在 这 一 节 中 ， 我 们 将 说 明 如 何 计算 较 低 的 s 维 超 平面 的 最 佳 拟 合 ， 其 中 1<s < 对 一 1 我 们 
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图 6.6 对 于 四 个 点 的 “最 优 ”正方 形 


4 





将 遵循 [3] 所 发 展 的 理论 .到 " 中 的 一 个 s 维 超 平面 a 可 以 被 表示 为 参数 形式 : 
CE : y 一 PT+altl 十 az2t2 十 …: 十 asts 一 PP 十 4t. (6.10) 


在 这 个 方程 中 P 是 平面 上 的 一 个 点 ， 同 时 ai 是 线性 无 关 的 方向 向 量 ， 于 是 这 个 超 平面 是 由 P 和 
4= [ai,...,as] 确定 的 . 

不 失 一 般 性 ， 我 们 设 4 是 正 交 的 , 即 474 = 到 如 果 我 们 想 对 已 知 的 一 组 点 丑 拟 合 一 个 超 平 
面 ， 则 我 们 必须 极 小 化 点 到 平面 的 距离 . 点 互 = xi 到 超 平面 的 距离 di 是 


由 = min|lp 一 xi + 4tll2. 
为 了 求 得 极 小 值 我 们 关于 tt 求解 grad 上 好 = 24:(Pp 一 xi+4t) =0, 同时 因为 4 是正 交 的 ， 我 们 得 到 
t 一 4T(xi 一 PD). (6.11) 


因此 这 个 距离 变 为 
此 =|p-xi+447I(xi 一 Pp) 上 性 =|P(xi 一 P)|2， 
其 中 刀 = 工 - 44-, 它 是 到 4 的 余 集 上 的 投影 ， 即 47 的 零 空间 . 
我 们 的 目的 是 极 小 化 所 有 点 到 超 平 面 的 距离 的 平方 和 .我 们 希望 极 小 化 函数 


下 (p, 4) = 1P(x - P)|l2. 《6.12) 


一 个 必要 条 件 是 grad 开 = 0. 我 们 首先 考虑 梯度 的 第 一 部 分 ， 即 偏 导数 


元 一 一 >》 2PTP(xi 一 P) = -2P(>， xi 一 ?np) = 0， 
?一 工 二 一 
其 中 我 们 使 用 了 投影 算 子 的 性 质 刀 " 刀 = 刀 . 因为 厂 把 向 量 已 ; xi 一 rp 投影 到 0 上 ， 这 个 向 量 
必须 在 4 的 值 域 中 ， 即 
下 二 》 xi 下 运 均 (6.13) 


2 一 了 
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把 这 表达 式 代 入 方程 (6.12), 极 小 化 的 目标 函数 简化 为 


3 


G(4) = 》 ||P 充 | 一 | 疡 广 T 改 ， (6.14) 


1 
我 们 记 册 
广 ; 一 xi 一 二 》 xi 
这 里 我 们 使 用 了 和 矩阵 的 丽 obenius 范 数 (4 他 := 半 ; o). 因为 刀 是 对 称 的 ， 我 们 同样 能 够 写 为 
G(4) = || 壹 PP 上 怪 王 中文 (一 447) 低 三才 一 尖 447| 侍 ， (6.15) 
如 果 我 们 定义 Y := X44T, 它 是 秩 为 s 的 矩阵 ， 则 我 们 可 以 考虑 如 下 的 极 小 化 问题 
上 攻 一 YI=mn 满足 rank(Y) 一 3. 


它 是 一 个 著名 的 问题 ， 即 在 瑟 obenius 范 数 下 如 何 用 一 个 低 秩 的 矩阵 逼近 当前 惩 阵 (参见 [2j): 
| 计算 成 一 困 马 天 的 奇异 值 分 解 ， 其 中 LTY 是 正 交 的 ， 同时 2 一 dzag(cl,o2,.. .on) 且 Cl1 之 
0a 之 …' 之 0n. 


2. 则 最 小 化 矩阵 由 = ZesVY 给 出 ， 其 中 
二 。 = diag(oloc2,. .ses0,0;...,0). 


现在 如 果 并 = VZ。yYT, 我 们 必须 找到 一 个 正 交 和 矩阵 4 使 得 蕊 44T = Y.， 容易 验证 如 果 我 们 取 
4= 态 ,这 里 侦 =Y(1:s), 则 三 447T = UZD。VT. 于 是 义 的 奇异 值 的 分 解 给 了 我 们 所 有 的 低 维 超 
平面 ， 它 们 最 佳 地 拟 合 了 给 定点 : 


1 3 
三 一 了 六 二 = 二 “一 一 1。 
yy 一 p+WVWt， 其 中 P 2 


注意 到 公 =Y(:,s+1:7n) 同样 给 了 我 们 超 平 面 的 正规 形式 : 这 里 超 平 面 被 表示 为 如 下 线性 方程 组 
的 解 
V2y = 人 2 Pp. 


为 了 计算 超 平 面 ， 我 们 需要 计算 一 次 奇异 值 分 解 . 这 可 以 由 MATLAB 的 函数 hbyper .am 来 实现 ( 算 
法 6.3). 读者 应 该 注意 到 语句 [U S WJ]=svd(Qt,0) 以 节约 的 空间 计算 了 奇异 值 分 解 . 如 果 Qt 是 一 
个 mm xzmn 矩阵 (mm > 则 仅仅 芝 的 前 m” 列 被 计算 了 ， 同 时 SS 是 mxzm 矩阵. 


算法 6.3 超 平 面 的 计算 
function [V,p ] = hyper(Q) ; 
% Fits a hyperpPplane of dimension sS “Dn 
% to a set of given poiats Q(i,:) belonging 
%h to Rn. 
% The hyperplane has the equation 
XXX=P+YV(C:,1:s)*tau (Parameter Form) or 


wy is defined as solution of the 1ineaz 
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% equations V(:，,s+l:D)2*y(y7 - Pp)=0 (Normal 夺 orm) 
m = max(size(Q) ) ; 

P = sum(Q) '/m; 

Qt = Q - ones(size(Q))*diag(P) ; 

[USV]J = svdaGCQt，0) ; 


拟 合 空间 中 的 平面 


假设 我 们 给 定 空间 中 的 mm 个 点 已 ,…..…，, P, 同时 我 们 希望 拟 合 一 个 通过 这 些 点 的 平面 ， 使 得 
点 到 平面 距离 的 平方 和 最 小 ， 我 们 能 够 使 用 隐 式 方程 描述 这 个 平面 


c 十 Ta 十 ?2 十 ?232 一 0， 7 十 902 十 ?3 一 1 (6.16) 
在 这 种 情形 下 ， 从 点 已 = (z,yz) 到 平面 的 距离 > 为 


7 一 |c 十 ml 十 722 十 7932|. 


从 而 我 们 希望 极 小 化 加 
le = >》 一 min 
z 一 工 
满足 
主 峭 4P) 之 疡 1 尼 ?1 
1 ZP 2WVP zP 72 
和 md 二 nm2 十 ma 一 1. (6.17) 
2 
1 7ZP， yyP， 2zP， 73 入 


在 MATLAB 中 这 个 问题 可 以 通过 调用 函数 clsq 容易 地 被 解 次 : 
>> [c，Dn] = clsq ([ones(m,1) P'] ，3) ; 
另外 平面 上 的 一 点 已 总 能 够 被 明确 地 表示 为 


王 =:P 十 clvi 十 c2V2. (6.18) 


如 果 我 们 使 用 程序 hyper 计算 p,vi 和 vz, 则 P 表示 这 些 点 的 重心 ， 同 时 vi 和 v2 表示 平面 的 两 
个 正 交 基 向 量 . 附带 地 ， 由 如 下 方程 给 出 的 直线 


了 =:P 十 clvl (6.19) 


同样 是 穿 过 给 定点 的 最 小 二 乘 直线 . 我 们 可 以 使 用 MATLAB 的 程序 产生 一 组 样本 点 
>> 办 mainhyper .了 
>> 丙 = 100; 
>> rand (seed:，10) ; 
>> randn (seed，，0) ; 
>> P = Tand (2，m) - 0.5; 
>> P (3，:) = 0.5*P (1，:)+0.5* 了 PP (2，:) + .， 
>> 0.25 * Ianqdn 《 土 ，mm) ; 
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这 些 点 近似 地 位 于 平面 z+Yy 一 2z=0 上 . 在 最 小 二 乘 意义 下 穿 过 这 些 点 的 这 个 平面 是 通过 调用 
>> [V，P] = hyper (P，); 
来 计算 的 .我 们 现在 通过 
>> Proj = P ones (1，m) + ..， 
>> V (:，1:2) V(:，1i:2):* (PP ~- PP*y ones (1，m)); 
来 计算 点 万 到 平面 上 的 投影 为 了 画 出 平面 的 正方 形 部 分 ， 我 们 必须 知道 正方 形 四 个 顶点 的 坐 
标 . 它们 能 够 借助 于 MATLAB 如 下 的 语句 来 计算 : 
>> Corners = [1 -1 ~1L1 1 
>> 1 1 -tt -1; 
>> Corners = P * ones (1，4) +V (:，1:2) * Corners; 
以 同样 的 方式 ， 我 们 能 够 计算 最 小 二 乘 直线 的 两 个 点 如 下 : 
>> Straight = P * oneS (1，2) +V (:，1) * [~-1 1]; 
现在 我 们 可 以 把 最 小 二 乘 直 线 、 最 小 二 乘 平面 连同 所 有 点 在 平面 上 的 投影 一 起 绘制 出 来 . 然而 所 
得 到 的 静态 图 像 仅 仅 给 出 一 个 三 维 状 态 的 不 充分 的 表示 . 它 很 难 告诉 我 们 所 有 对 象 的 相对 位 置 . 
另 一 方面 ， 一 个 活动 的 图 像 能 够 给 人 们 更 加 真实 的 印象 . 在 例子 中 我 们 可 以 让 平面 慢 慢 地 转 
统 着 z 轴 旋 转 . 这 将 给 我 们 一 个 很 好 的 介绍 MATLAB 的 movie 命令 的 机 会 . 
在 MATLAB 中 的 动画 是 由 一 系列 预先 算 好 的 画面 组 成 的 .命令 frames= moviein (nframes) 
分 配 一 个 矩阵 frames, 用 它 的 列 来 存储 动画 中 所 有 的 画面 . 我 们 用 nframes 表示 我 们 希望 产生 的 
所 有 单个 画面 的 数量 . 我 们 必须 事先 计算 动画 的 所 有 画面 ,同时 调用 getframe 把 它们 存 入 frames. 
随后 ， 我 们 能 够 使 用 命令 movie 显示 我 们 的 动画 . 
为 了 旋转 直线 和 平面 我 们 引入 如 下 的 旋转 矩阵 


cosoD 一 Sinw2 0 
有 := | sinPp cosp 0 |， (6.20) 
0 0 1 


其 中 2 = 2r/mneames. 如 果 我 们 把 矩阵 己 用 于 点 书 , 意味 着 我 们 把 点 书 绕 z 轴 旋 转角 度 %. 

我 们 希望 使 用 正 交 投影 来 在 二 维 的 计算 机 屏幕 上 显示 三 维 的 图 像 ， 观 察 者 所 处 的 位 置 在 y 轴 
的 一 ce 处 . 这 可 以 使 用 MATLAB 的 命令 view(viewmtx (0，0，0)) 很 容易 实现 . 

为 了 达到 理想 的 效果 ， 所 有 点 到 平面 上 的 投影 ， 最 小 二 乘 直 线 和 最 小 二 乘 平 面 必 须 以 正确 的 
顺序 绘制 . 首先 ,我 们 绘制 平面 后 面 的 投影 线 . 它们 可 以 由 条 件 P (2,j) > proj (2，j) 来 识别 . 
其 次 ， 我 们 通过 调用 片 基 元 来 画 平 面 . 这 样 的 片 元 通过 规定 其 各 个 角落 的 着 色 来 实现 表面 的 明暗 
处 理 . 如 果 我 们 使 用 灰 度 图 ， 我 们 可 以 对 平面 的 表面 着 色 ， 使 其 沿 着 y 轴 逐 渐变 深 . 这 个 技术 可 
以 实现 图 形 的 令 人 信服 的 三 维 效果 于是， 我 们 再 调用 line 画 出 最 小 二 乘 直线 . 最 后 ， 再 画 出 平 
面前 面 的 投影 线 . 我 们 可 以 通过 设置 选项 EraseMode 为 none 来 避免 像 元 的 自动 重复 绘制 ， 这 在 应 
用 中 是 不 希望 的 . 在 这 个 方式 中 MATLAB 没有 能 力 消除 缺 省 隐藏 线 . 

这 些 考虑 导致 我 们 有 如 下 的 MATLAB 程序 ， 它 首先 计算 所 有 的 画面 然后 循环 演示 这 个 动画 : 

>> Dframes = 36; Phi=2*r pi / nframes; 
>> rot = [cos(Pphi) -sin(Pphi) 0 

>> sin(Pphi) cos(Phi) 0 

>> 0 0 1 
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>> clf; axis (off:，); colormap (gray) ; 

>> frames = moviein (nframes) ; 

>> for KXK = 1:Dnframes， 

>> Cl] 了 ; 

>> axis ([-1.25 1.25 -1.25 1.25 -1.25 1.25]); axigs (off:); 
>> ”View (viewmtx (0，0，0)); caxis ([-1.3 1.3]); 


>> “ % Plot points behind the Plane 
>> for j = 1:m， 


>> if P (2，j) > proj (2，j)， 

>> 1Line (tfP(1,j) Proj(1,j)]， 

>> [P(2,j) Proj(2,j)7] ， 

>> LP(3,j) proj(3,j)] ， 

>> Color : ，:yellow，，):EraseMode: ，:Dnone)) ; 
>> end 

>> end 


>> drawnow; 


>> “ % plot PlLane 

>> “patch (corners (1，:)，corners (2，:)，corners (3，:)， 
>> -Corners (2，:) ， 

>> EdgeColor: ，:none，， ?EraseMode，，:none') ; 


>> GTrawnow ; 


>> “ % Plot least squares ine 
>> “1ine (straight (1，:)，straight (2，:)，straight (3，:) ， 
>> )Color，，?Tred， ，:EraseMode，，?:none))， 


>> drawnow ; 


>> “ % Plot points before the Plane 
>> for j] = 1:m， 


>> if P 《2，j) “= Proj 《2，]j)， 

>> line ([P(1,j) Proj(t,j)7]， 

>> [P(2,j) proj(2,j)7]， 

>> [P(3,j) proj(3,j)7] ， 

>> Color，，:yellow: ，?EraseMode: ，:Done)，) ; 
>> end 

>> end 


>> drawnow ， 
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>> frames 〈: ，X) = getframe ; 


>> “”% Totate Points 

>>  P=Irot *vr P; proj =Trot * Proj; 

>> ”Corners = Tot * COTDnerS; StIaight = Tot * StITaight ; 
>> end ; 

>> clf; axis (off:); movie (frames，ijinf) ; 
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9.， 慌 a7yto 洁 


7.1 引言 


我 们 考虑 如 下 的 问题 : 给 定 一 个 台球 桌 (不 一 定 是 长 方形 的 ) 和 桌 上 的 两 个 球 ， 问 向 哪个 方向 
击 第 一 个 球 使 得 它 从 台球 桌 的 边缘 弹 回 并 且 撞 到 第 二 个 球 ? 这 个 问题 较 早 在 圆 形 球 桌 的 情形 下 在 
[L3] 中 被 解决 了 . 

令 台球 桌 的 形状 被 生 = jb 了 = 9 表示 为 参数 形式 . 这 些 函 数 可 以 是 任意 的 ， 只 要 求 它们 
存在 一 阶 导 数 .我们 的 是 的 在 于 求 出 由 坐标 发 人) Ya)] 表示 的 边界 上 的 点 ， 我 们 将 使 用 两 个 不 
同 的 方法 求解 此 问题 : 广义 反射 法 和 最 短 轨 线 法 .我 们 使 用 两 个 方法 得 出 参数 土 的 函数 ， 它 的 根 
是 点 怕 ,……t 如 , 即 给 定 问 题 的 解 . 在 本 章 的 第 一 部 分 我 们 将 首先 求 出 解析 解 . 在 第 二 部 分 我 们 将 通 
过 求解 某 些 实际 的 例子 来 直观 地 检验 这 个 解 . 在 更 复杂 的 情形 下 ， 我 们 将 使 用 数值 方法 来 求解 最 
终 的 方程 . 


7.2 广义 反射 法 


问题 的 解 可 以 分 两 步 得 到 . 首先 ， 求 出 由 球 桌 边缘 一 点 反射 的 球 的 轨迹 . 其 次 ， 求 出 球 桌 边界 
的 点 使 得 第 二 个 球 刚 好 在 这 条 轨迹 上 . 

第 一 步 可 以 通过 推广 平面 反射 问题 来 解决 ， 即 按照 反射 定律 求 从 点 已 沿 着 直线 ! 到 点 @ 的 路 
径 . 这 里 的 反射 定律 是 指 投射 角 等 于 反射 角 . 

在 第 二 步 中 ， 我 们 计算 反射 的 轨迹 与 第 二 个 球 位 置 的 距离 . 这 个 距离 是 撞击 位 置 点 的 函数 . 
一 旦 相应 的 距离 等 于 零 的 点 被 求 出 ， 问 题 也 就 解决 了 . 


7.2.1 直线 和 曲线 反射 


首先 ， 我 们 求 出 点 书 的 镜像 点 M, 对 称 轴 为 直线 /. 连接 点 M 和 @ 的 直线 ! 与 直线 ! 相交 于 
点 了. 现在 ， 所 要 求 的 通过 扣 了 的 路 径 如 图 7.1 所 示 .， 为 了 击 中 位 于 点 @ 的 球 必 须 从 点 已 瞄准 点 
7. 我 们 使 用 球台 边界 的 切线 作为 镜面 线 ， 我 们 可 以 用 隐 式 的 方式 把 它 表 示 为 


三 1 三 y 一 人 =K(z 一 思 )， Ki 三 大 = 一生- (7.1) 


其 中 
并 三 [7z,Ty = [区 (的 ,和 ()]， 


Tz,7Ty 是 台球 桌 边 缘 上 点 全 的 坐标 ，K& 是 边界 函数 在 这 个 点 的 导数 击 到 边界 的 这 个 球 刚 好 就 像 
由 这 条 线 反 射 一 样 被 反弹 回去 . 我 们 使 用 ! 作为 镜面 线 去 求 一 个 球 的 位 置 的 镜像 . 图 7.2 给 出 了 广 
义 台 球 问题 的 解 . 我 们 能 够 把 位 于 点 己 的 球 癌 边界 的 点 工 瞄准. 我 们 使 用 在 点 全 处 边界 的 切线 
1 为 镜面 线 求 出 点 书 的 镜像 M. !2 是 连接 点 已 和 M 的 线段 . 0 垂直 于 /2, 与 12 相交 于 它 的 中 
扣 C. 
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图 7.!1 直线 反射 





如 果 点 M 已 知 ， 则 可 以 画 一 条 连接 点 M 和 @ 的 线段 ja, 和 射线 1a( 从 点 M 出 发 穿 过 点 了 ). 
位 于 点 己 的 球 在 反射 之 后 将 沿 着 这 条 射线 运动 . 现在 我 们 可 以 计算 点 @ 到 射线 /4 的 距离 dz. 如 
果 这 个 距离 等 于 零 ， 即 dz = 0, 则 第 二 个 球 的 位 置 刚 好 在 第 一 个 球 反 射 以 后 的 轨道 上 . 因此 这 两 个 
球 一 定 相 撞 . 第 二 个 可 能 性 是 计算 点 了 和 直线 六 与 ja 的 交点 了 之 间 的 距离 贝 . 要 想 击 到 位 于 点 
Q 的 球 ， 这 个 距离 必须 要 等 于 零 ， 即 di = 0, 因为 在 这 个 情形 下 工 和 六 一定 重 合 ，!4 也 将 与 js 重 
合 . 计算 di 要 比 计算 da 简单 ， 确定 两 点 之 间 的 距离 要 比 计算 点 与 直线 的 距离 简单 . 于 是 问题 就 
简化 为 求 点 开 使 得 对 应 的 距离 di 或 dz 分 别 等 于 零 . 


图 7.2 曲线 反射 


X(tt, Y(b) 





7.2.2 ”数学 描述 


为 了 得 到 解析 解 我 们 再 一 次 考虑 图 7.2. 我 们 使 用 同一 类 型 的 公式 来 描述 所 有 的 直线 ， 这 样 对 
简化 分 析 过 程 是 有 益 的 . 直线 可 以 用 它 的 点 斜 式 来 表示 . 对 于 第 一 条 直线 我 们 用 方程 (7.1) 来 
表示 . 其 它 的 直线 被 表示 为 


=3 一 脉 =iotz 一 已)， 其 中 如 = 一 直 


了 .2 
1 三 y 一 9y=jaz 一 QQrc)， 其 中 ia = 环 : 巡 
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求 得 氮 M 坐标 的 最 简便 方法 是 找到 直线 2 和 12 的 交点 C, 同时 使 用 镜面 对 称 的 条 件 


P 二 NM。 书 十 M 
人 (7.3) 


随后 就 有 可 能 计算 直线 上 和 4 的 交点 Y 的 坐标 ， 同 时 确定 瞄准 误差 距离 d 


而 = V( 叙 一 玖 )2++( 帮 一 瑟 )2 (7.4) 


使 用 方程 (7.1) 和 (7.4) 我 们 能 够 计算 出 di 作为 台球 位 置 坐标 、 球 台 形 状 函 数 及 其 导数 的 函数 
dX (ti) 0 
dt ”di 和 ′ 

我 们 希望 关于 二 求 解 方程 di 区 = 0.MAPLE 可 以 用 来 给 出 心 ( 轨 明确 的 表达 式 同 时 求 出 它 的 解 . 

表 7.1 广义 台球 问题 中 使 用 的 主要 变量 

意义 

7 一 At Ts 三世 ( 区 ,球台 形状 的 描述 


Cz 








dl(t) 一 di (2 人 < Gy 世 ( 芭 了 ()， (7.5) 










K1 球台 函数 在 点 [Tz,2] 切线 的 斜率 (直线 ) 

ja 直线 jz 的 斜率 ， 它 垂直 于 直线 癌 , 1LP, 书 ] 是 /2 上 的 点 
Rs 连接 点 |[Q-,Q@yj 和 [AMz,AMy] 的 直线 ja 的 斜率 
4irnerr 点 [yz,W] 和 [7Tz,Ty] 之 间距 离 的 平方 (瞄准 误差 ) 
21D4,DD 忆 | 4zrmeryr 的 分 子 和 分 母 

zy 第 一 个 球 的 坐标 

CQv 第 二 个 球 的 坐标 

Ahy 点 [已 , 书 ] 的 镜像 点 ， 镜 线 是 六 

CzCy 直线 由 和 12 交点 的 坐标 

Ye yy 直线 ja 和 !a 交点 的 坐标 


7.2.3 MAPLE 解 


程序 是 严格 地 以 上 面 提 到 的 关系 式 为 基础 的 . 我 们 将 使 用 表 7.1 所 列 的 变量 . 广义 台球 问题 在 
[ 则 三 [Te7T] 时 ， 即 DD4=0 就 被 解 出 . 


> Et := solve({VIy] - QIy] = kx[3]*(V[x]-Qftx] ) ， 

> V[y] - T[yY] = kr[l]*(Vv[x] - T[x])}，{fVIx ，VLy]T)>: 
> assign(E1) : 

> E2 := solve({fCc[y] - P[y] = k[2]*(C[x] - P[x] )， 

> cy] - T[y] = kx[i]*(C[x] - T[x])}，{CrIx] ，C[y]}): 
> asSsign(E 上 21) : 

> M[x] := P[x] + 2*(C[x] - P[x]): NM[y] := Pfy]j + 2*(C[y] - P[y]): 
> kk[3] := (MLy] -~- Q[Iy])/V(CM[x]j - QIx] ) : 

> TIy] := YCt): Tkx]j := XCt) : 

> [2] := -1/k[i] : 

> Kk[1] := difft(Y(t)，t)Vdiff(XCt) ,七 ) : 

> 


Aimerr := Dormal((T[x]j ~ V[x])*2 + (TIy] - V[Iy]) ”2) : 


我 们 现在 需要 求解 方程 htmerr = 0. 如 果 我 们 使 用 球台 边界 的 参数 表达 式 X( 扣 和 了 人，4imerr 的 
表达 式 喜 变 成 一 个 分 数 . 它 能 够 被 用 来 简化 问题 的 求解 ， 变 成 仅仅 需要 去 求 分 子 等 于 零 的 解 . 但 是 
需要 检验 这 样 一 个 零点 是 不 是 正确 的 解 ， 我 们 必须 确认 4imerr 的 分 子 和 分 母 没有 共同 的 零点 . 
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现在 我 们 党 试 简化 4zrmery 的 分 子 . 


VVVVMVMVMYMV YXYV 


DA 
DB 


op (1，ntmer (Aimerz) ) : 
denom(AimerIr) : 


DA1 := factor(select(has，DA，{fdqiff(XCt) ， 七 ) “2， 


diff(Y(t)，t) ”277) : 
Da2 := select(has，DA，diff(X(t) ，t 上 ) ) : 


DA2 := factor(select(has，Da2，daiff(Y(t) ，t))) : 


DA - expand(DA2 + DA1) ; 
0 


DAA := DAT + DA2 ; 


D44 := 一 2( 呈 Y(b) 人 X() 


(QyY 人 一 Q@y 记 一 Yi +Xt 十 已 Go 一 XHG +Y( 一 严 和 (人 ) 


+ (部 Y(GD) 一 ( 半 X(G)(( 呈 Y(bD) 二 (元 和 (6))) 
(--Qy 已 十 Qy XU 一 已 QH+YGH 己 一 2Y(XGETY(OGz 二 XI) E) 
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MAPLE 代码 的 结果 是 变量 DD4, 它 依赖 于 球台 形状 使 用 的 特定 的 函数 ， 对 于 任何 所 提 的 实例 问 
题 ， 这 些 函数 必须 以 输入 的 形式 提供 ， 


7.3 ”最短 轨 线 法 
从 物理 学 可 知 [2] 从 一 个 点 发 出 到 另 一 个 点 的 光线 的 轨道 将 极 小 化 路 径 的 长 度 . 在 反射 的 情形 


下 这 条 曲线 由 两 段 直线 组 成 第 一 段 直线 连接 光源 点 (在 我 们 的 情形 下 ， 第 一 个 球 的 位 置 ) 和 反射 


点 (球台 边界 上 的 点 ). 后 一 个 点 由 第 二 条 线 连 向 观测 点 (第 二 个 球 的 位 置 ). 使 用 这 个 思想 ， 我 们 同 
样 能 够 解决 广义 台球 问题 . 

我 们 可 以 给 出 连接 点 己 和 球台 边界 上 的 反射 点 工 的 第 一 条 线段 IP, 和 连接 点 人 和 了 的 第 二 
条 线段 fe. 现在 我 们 必须 求 出 这 两 条 线段 的 最 小 和 3, 它 是 了 的 函数 . 请 记 住 了 是 球台 边界 上 的 


点 ， 注 意 到 工 三 [tb Y (bj 我 们 的 问题 是 关于 参数 上 求解 方程 


(Tz 人 tb) 7 下 (7y 人 下 已 十 V (Tz (bb 一 Qc)” 十 (Tvy(b Qy)?) 


7.3.] 


> 
> 
> 
六 > 


dll :一 (-( 翅 X(b) 已 十 ( 却 X(t)XX( 十 立 人 (二 Y() 一 ( Y(b) En) 


V ( 愉 世 一 @c 帮 二 (大 一 @o 和 二 


(( 叶 XGO)XGD - ( 呈 XG)Qo+Y(G( 交 YG)-Qy( 呈 YG))VCCG 一 已 +(YG) 一 已) 


MAPLE 解 


LP := sqrt(CXGt) - PLxj)” 2 + (Y(t) - PLy]) > 27) : 
LQ := sqrt(CCXCt) - Q[x]j) ”2 + 《YLt) -~- QIy]) > 2) : 
]IP := diftf(LP,t): 1Q := diff(LQ,t) : 


dl1 := numer(IP)*denom(1Q) + numer(1Q)*dencm(1P) ; 





92 9S. 号 arto7i 
为 了 求解 最 后 的 方程 dl = 0, 我 们 必须 首先 确定 球台 形状 的 函数 生 ( 加 和 也 ( 划 . 
7.4 例子 


我 们 现在 把 反射 法 与 最 短 轨 线 法 相 比 较 . 两 者 都 得 到 同样 的 结果 ， 作 为 第 一 个 例子 ， 我 们 考 
虑 圆 形 的 球台 ， 它 的 解 是 大 家 熟知 的 [1,3]. 
7.4.1 圆 形 球台 


为 检验 我 们 的 程序 ,我 们 将 再 一 次 在 同样 的 假设 , 即 尺 = 1Q9yv =0 下 计算 [1,3] 中 给 出 的 解 . 
我 们 能 够 通过 定义 


> XIt) := cos(t): YIt) := sin(t): Q[y]:= 0: 
继续 在 7.2.3 和 7.3.1 中 所 提出 的 MAPLE 程序 的 计算 . 因为 球台 的 形状 是 确定 的 ， 球 的 位 置 完全 
任意 . 首先 我 们 将 求解 D44 = 0( 参 见 7.2.3). 

> DA := simplify(DAA) ; 


D4 := 2sin(t) cos( 要 已 Q@az 二 cos 人 (四 忆 一 2cos( 雪 已 Quo + 已 QQ 一 sin( 忆 一 sin 人 (办 Q。 


> SolDA := solve(DA,t); 


己 (--%1 二 2%12Q。 - Q-) 史 
2%1 已 Q.- 瑟 二 9。， 

吕 1 := RootOf((4 Po Q2 +4 已 ?QZ4 二 (-4 忆 2Q。 一 4P2Qo 一 4 已 Qo2) 273 

+ (2PQa 一 4 忆 QQ 十 已 十 Q22 十 忆 2 一 4 已 2Q22) 22 

+ (4 已 QQo+4P QT2P2Q) 7 一 QT+P2Qo2 一 忆 2 -2PQ-) 


SolLD4 := arctan( 


使 用 命令 solve 我 们 能 够 得 出 一 个 参数 上 的 解析 值 使 得 D4 = 0. 为 简洁 起 见 ， 这 里 没有 提供 求解 
的 细节 ,为 比较 我 们 的 结果 和 [1,3] 中 得 到 的 结果 ， 我 们 将 代替 一 般 的 变量 已 ,P,Qz 为 它们 的 数 
值 . 我 们 将 检验 刀 4 的 零点 是 不 是 4imerr 的 正确 解 . 如 果 它 们 代入 , 值 不 为 零 ， 解 就 是 正确 
的 . 


> PLx]j := ti/2: P[Ly] := 1/2: Q[x] := -3/5: 
DA := simplLify(DA) : 
> SolDA := solve(DA，t) ; 


V 


So1D4 := arctan(-2%1 一 1 十 6 各 1 十 5 务 12 9 
%%1 := RootOf(-23 -2 二 24-23 -9-Z 十 36-24 十 4) 


> FSolDA := evalf(al1lvalues(SolDA) ) ; 
toolLD4 := .9380770491, 2.750972642, 一 1.251457483,， 2.274796770 
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> for 1 from 1 by 1 to nops([FSolDA] ) do: 

> tA[fi] := FSolDA[i]; 

> DBi := evalf(subs(t = tA[i] ，DB) ) ; 

> if DBi = 0 then Print('“ Root ' ,unusable !); fi; 

> print('i =*,i，“ thA = (，tA[li],' ==> DB =“，DBi); 

> od : 
2 一 , 1，t4 = ，.9380770491， 王 一 > 已 = ，2.742080139 
1 一 ,2，14 = ，2.750972642， 一 一 > 力 已 = ，2.948610256 
1 一 , 3，14 = ，2.274796770， 一 一 > 万 妃 = ,2.415361451 

i =, 4，4 = ,， -1.251457483， 一 => 7D 甩 = ，6.280614817 


注意 到 目标 点 的 位 置 角 与 [13] 中 相同 , 即 evalf(tA[4]+2*Pi)=5.031727826. 对 于 寺 = thl,. .th44 
我 们 现在 检验 第 二 个 方法 d = 0( 参 见 7.3.1). 我 们 再 次 使 用 MAPLE 去 求 一 般 的 解析 解 : 


> PLxj := 'P[xj':: PLyj := :Plyj:: Qtxj := 'Q[xj:: Qiyj := 0: 
> dl := simplify(d11) ; 


dl :一 V 一 2cos(t) GOczc 十 Q2 十 1sin(t) 忆 ,一 V 一 2cos( 切 @z 十 @2 十 1cos 人 (1 己 ， 
+sin 人 (让 QeV 一 2cos( 贡 已 十 已 ?+1 一 2sin(t 己 ,十 己 ? 


> # Soldl := Solve(d1l,t) : 


解析 解 是 存在 的 ， 但 是 它 要 比 前 面 的 例子 复杂 ， 因 为 变量 叹 包含 有 和 平方根. 在 这 个 情况 下 最 好 首 
先 来 变更 这 个 方程 ， 即 在 求解 之 前 把 平方 根 去 掉 . 


> eq := op(1，dl) + op(2，dl) = -op(3，ql) : 
> eq := expand(mnap(u -> U ”2，eq) ) : 

> eq := lhs(eq) - rhs(eq) = 0: 

> 


Sold]l := SolLve(eq， 七 ) : 
这 个 结果 并 不 特别 复杂 ， 但 为 了 简单 起 见 ， 这 里 也 没有 把 它 列 出 来 . 我 们 可 以 再 次 分 配 已 ,P,Qz- 
的 值 同时 再 次 求解 eq. 

> PLxJj := 1/2: PLy]j := 1/2: Q[x]j := -3/5: 


> eq; 


33  . 1 . 上 3 17 
sin(t)” cos(t) 一 二 sin(t)” 一 sinkt)cos(t)” 一 5 sin(t)cos(tz) 十 1 cos(t)3 十 60 cos{(t)” 


是 3 
一 t2 一 
十 二 Sin(t) 0 


> Soldl := SolLlve(eq,) ; 


33 5 
一 一 十 V137 V137 
9old := arctan 一- ，arctan 一 一 一 刀 ， 
二 十 V137 /| 一 一 V137 





94 9， 吾 arto 爷 


arctan( 一 2 和 1 一 1 十 6 名 二 十 5 入 1 和 1) 
%1 := RootOf(-23 -22 十 24-23 一 9-3 十 36.24 十 4) 


> FSoldl := evalf(allvalues({Sold11)) ; 


PSoldl := {.6775335699, .9380770491,， 一 2.9658712381， 
{.6775335699, 2.750972642,， 一 2.965871238}， 
{.6775335699, 一 2.965871238,，--1.251457483}， 
{.6775335699, --2.965871238, 2.274796770} 


由 此 可 见 两 个 解 是 相同 的 . 注意 到 第 二 个 解 的 多 余 的 根 是 由 于 方程 的 变形 产生 的 ， 它 对 于 我 们 没 
有 实用 价值 . 


图 7.3 Dan 本 数 和 dln 杯 数 





我 们 比较 郴 数 了 4 和 吧 的 . 因为 它们 被 做 了 很 大 的 化 简 ， 已 经 失去 了 原始 的 物理 意义 .我 们 首 
先 将 它们 除 以 它们 最 大 的 绝对 值 以 把 这 些 函 数 正 规 化 . 这 样 我 们 就 可 以 把 这 两 个 函数 绘制 在 同一 
个 坐标 上 ， 如 图 7.3 所 示 . 


DAd := diff(DA，t): dld := diff(dql，t) : 
tamax := fsolve(DAd = 0, 七 6. .7): 

tlmax := fsolve(dqdld = 0, 七， 6. .7): 

Dan := DA/abs(subs(t = tamax，DA) ) : 

dln := dl/abs(subs(t 七 Imax，dl) 1) : 
with(Plots) : 

pl1 := plot(Dan, 上 上 = 0..2*Pi，1inestyle=3) : 
P2 := plot(dln,t 上 = 0..2+*Pi，1inestyle=0) : 
display(C{P1,P2}) ; 


粗略 看 去 ， 似 乎 两 个 函数 Pan( 攻 和 dim 人 (b 实质 上 是 相同 的 ， 只 是 符号 不 同 ， 我 们 通过 绘制 一 条 不 
寻 沉 的 曲线 PEF(z,y) 三 [Dan(), dm(b)] 来 发 现 它们 的 区 别 (参见 图 7.4)， 如 果 我 们 的 猜想 是 正确 


YYVYMMYMMVMVYVVYVYV 
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的 ， 这 个 图 形 应 该 是 从 点 [1 到 点 有 L-H 的 直线 段 . 然而 所 观察 到 的 与 这 条 线段 的 偏差 表明 这 两 
个 苑 数 事 实 上 是 不 同 的 . 


> Plot([Dan，dln, 七 = 0..2*+Pi]); 


有 趣 的 是 得 到 了 如 下 的 新 的 曲线 : 
天 (明王 夸 (t(E 十 Dam)，T( 人 明王 了 Y( 人 (LI 二 Dam). (7.6) 


这 条 曲线 是 由 球台 形状 函数 加 上 函数 Pan( 或 wm) 作为 “干扰 ?构成 的 . 因为 在 目标 点 函数 忆 4, Dam 
等 于 堆 , 这 些 点 的 坐标 是 在 边界 上 (图 7.5). 因此 目标 点 能 够 作为 球台 形状 函数 和 干扰 形状 函数 (7.6) 
的 交点 从 图 像 上 求 出 . 


算法 7.1 ResultPlot 过 程 
ResultPlot := Proc(P1x，P1YyY，P2x，P2y，Xborder ，Yborder ，Perturb ， 
Start ，End，Zerosvec，Nzeros ，Xrange，Yrange) 
Local 工 ，D，Trajectories ，AimPointX，AimnPointY， 
PlcotTITraject，PlotPoints，P1lLotBorder ，P1lotPert ; 
tor 1 from 1 by 1 to Nzeros do 
AimPointX[i]j := evalf(subs(t = Zerosvec[i] ，Xborder) ) ; 
AimPointY[Li] := evalf(subs(t = Zerosvec[i] ，Yborder) ) ; 
Trajectories[Li]j := [LIP1x，Ply]j，[AimPpointX[i] ， 
AimPointY[i]j，[P2x，P2y]j] ; 
cd ; 
PIotTIraject := Pblot({tseq(CTrajectories[i] ，i = 1..Nzeros)]， 
style = LINE，thickness=1) : 
PlotPoints := Plot(t{t[P1x，P1y] ，[P2x，P2y] ， 
seq([AimPointXx[ij ，AimPointY[i]] ， 
斌 = 1..Nzeros)}+，style=POINT) : 
PlotBorder := plot([Xborder ，Yborder , 七 = Start. .End] ， 
thickness=2) : 
P1lotPert := Plot([Xborder*r (1 + Perturb) ，Yborder*y (1 + Perturb) ， 
t+t = Start. .Endj ，1ipesty1le=3) : 
display({PlotTraject ，PlLotPoints，PlLotBorder ，PLotPert]， 
scaling=constrained，View=[Xrange，Yrange] ) ; 


end ; 


因为 图 像 输 出 多 次 被 使 用 ， 我 们 将 产生 一 个 MAPLE 程序 ResultPlot( 算 法 7.1), 它 将 被 用 来 撒 绘 
这 个 图 像 解 . 程序 ResultPlot 很 容易 使 用 .例如 图 7.5 就 是 用 它 绘 出 的 . 


> ResultPlot(P[xz] ，PLEy] ，Q[x]j]，QIy] ，XCt) ，Y(t) ， 
> Dan，0，2*pPi，tA，4，-1..2，-1.25..1); 
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图 7.4 Dan 和 din 的 图 像 比较 





7.4.2 ” 李 圆 球台 
具有 半 轴 a 和 jj 的 一 个 椭圆 可 以 由 如 下 的 参数 方程 描述 : 


甩 (t 四 一 Qcos(t，Y( 王 bsin(t). (7.7) 


我 们 考虑 长 半 轴 为 ac = 1, 短 半 轴 为 = 0.8 的 椭圆 . 令 书 = 三 [-0.6,-0.3] 和 Q@ =[0.5,0.5] 是 球 的 位 
置 的 坐标 ， 仍 然 使 用 前 面 得 到 的 方程 刀 4( 人 参见 7.2.3) 和 叹 ( 参 见 7.3.1). 
> XGLE) := cos(t): YILt) := 4/S*Sinf(t) : 


> P[x]j := -3/5: PLyj := -3/10: Qtfxr]j := 1/2: Qty]j := 1/2: 
> DA := Simplify(CDAA) ; 


42 18 369 9 2 
D4 := J sin(t) cos(t) 十 人 sin 人 (加 cos(t2 十 iD cos(t)2 十 1 cos(t)3 十 让 sin(t) 


十 本 (1) 9 
125 20 


> SolDA := solve 人 (DA,t) ; 


60534443 32992953 ，， 。 ”586629 。 2457054 

1 2 586629 ”2457054 

arctan(18363160 多 1 十 15907900 色 1 一 1836316 二 下 384875 
10344267 


加 2162333043 
11476975 


1 一 一 一 一 一 一 和 ,51 
155079000 41，21) 

吧 1 := RootOf( 一 4826050 -GZ 十 326640 -GZ3 十 4183641_24 -- 651000 -2 十 785160 25 
十 37584 -GF4 十 1225625) 


级] 


> jirreduc(op(1,op(2,SolDA) ) ) ; 


ti7ue 
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图 7.5 圆 形 球台 的 图 像 解 





可 以 看 到 ， 这 个 问题 得 不 出 解析 解 . 于 是 我 们 使 用 数值 方法 求解 . 


MVVYMMMMVMVY YV 


VMVMVYMVYMMMMY YNV 


tALl] 
tAT[2] 
tAL3] 
tA [4] 
tl1[L1] 
t1 [2] 
t1 [3] 
t1 [4] 


Damn 


QlDn : 


:= fsolve(DA, 七 ，-3..-2) ; 
:= fsolve(DA ,七 ，-1..0) ; 
:= fsolve(DA，, 七 ，1..2); 

:= fsolve(DA, 七 ，2. .3) ; 

:= fsolve(dl1, 七 ，-3. .-2) ; 
:= fsolve(dql1, 七 ，-1..0) ; 
:= fsolve(dl1, 七 ，1..2) ; 
:= fsolve(dl1, 七 ，2..3) ; 


t41 := 一 2.425591133 
ti42 := 一 .5260896824 
ti4a3 := 1.038696884 
ti44 := 2.761693514 
好 1 :一 一 2.425591133 
12 :一 一 .5260896824 
妈 3 :一 1.038696884 
24 :一 2.761693514 


DA/abs(evalf(subs( 七 = fsolvek(dqiff(DA，t) ， 
二 

dlL1l/abs(evalf(subs( 七 = fsolve(diff(d11， 七) ， 
2 


pl1:=pPlot(Dan, tt = 0..2*Pi,Linestyle=0) : 
P2:=plot(dln, 七 = 0..2*Pi,LinestylLe=3) : 
display({Pt,P2}) ; 

ResultPlot(P[x]，PLy] ，Q[x] ，QLy]Jj，XCGt) ，Y(t) ， 
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> Dan，-Pi，Pi，tA，4，-1.5..2，-0.8..0.8) ; 


7.6 椭圆 球台 的 解 -Dan 函数 和 din 郴 数 


-dln 
全 AN 





7.4.3 ” 蜗 线 形 球台 


蜗 线 或 螺 线 形 的 球台 是 很 少见 的 ， 但 是 它 能 被 用 来 展示 MAPLE 的 能 力 ， 一 个 “ 蜗 形 曲线 ”或 
Archimedes 螺 线 最 好 是 在 极 坐 标 系 下 用 方程 e = aw 来 描述 .转换 为 直角 坐标 系 ， 我 们 可 以 给 出 
Archimedes 螺 线 的 参数 表示 : 和 X(b = tcos 人 (ty 三 tsin(t, 其 中 wa = 1. 这 些 方程 可 以 用 于 求解 
蜗 线 球台 问题 . 令 两 个 球 的 坐标 为 王 三 [-6,-12,Q 三 [7,5]. 


X (七 ) t#cos(t): YIt) := tykSin( 人 (七 ) : 
P[xj := -6: Pry]j := -12: R[x]j :=7: Q[Ly]j := 5: 
DA := simplLify(DAA) : 
Dan := DA/abs(evalf(subs(t = fsolve(diff(DA， 七 ) ， 
七 ，15..17)，DA))) : 
dln := dllL/abs(evalf(subs(t = fsolve(diff(dql1L， 七 ) ， 
tr 15177， .GD7) 
P1:=PlLot(Dan, t+ = 4*Pi..6*Pi,1inestyLe=0) : 
p2:=pPlot(dln，t = 4+*Pi..6*Pi,1inestyle=31) : 
display({Pt,Pp2}) ; 
PL:=PLot(Dan，t 
p2:=pPlot(dlmnm，t 
display({fPl,p2}) ; 
tAtt] := fsolve(DA, 七 ， 12.5..12.6) ; 
taA[2] := fsolve(DA，t 上 上 ，12.7..12.8); 
taf3] := fsolve(DA， 世 ，14..15) ; 
that4a]j := fsolve(DA,， 鞍 ，16..17); 
lL41 :一 12.56987562 
ti4> := 12.75992609 


人 


12.5..12.85,1Linesty1le=0) : 
12.5..12.85,1inesty1le=3) : 


全 


MVYVYVMYMMVMMYMMYMMYMMYMVYMVYVMVMYMVMVMVVWV 
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图 7.” 椭圆 球台 的 图 像 解 





ti4a3 := 一 14.95803948 
lt44 :一 16.82749442 


> ResultPlot(PLx]，PLy] ，Q[x]j，QR[y] ，XCt) ，Y(ty) ， 
> dln，4*Pi，6*r*Pi，tA，4，-20..30，-31..26) ; 


结果 以 与 前 面相 同 的 方式 提供 . 图 7.8 显示 函数 Dan 和 din 并 带 有 放大 的 细节 . 注意 到 这 里 有 两 
个 很 接近 的 画 数 零点 . 这 图 像 有 助 于 寻求 fsolve 的 初始 值 . 


图 7.8 蜗 形 球台 函数 Dam 和 dm 图 7.9 了 Damn 和 atn 的 放大 细节 


1 Da 





7.4.4 星 形 球台 


最 后 我 们 考虑 一 个 有 些 太 怪 的 球台 形状 ， 一 个 五 点 是 形 的 球台 (非常 适合 于 肥胖 人 使 用 的 球 
台 ) 这 个 形状 能 够 被 如 下 的 参数 方程 成 功 地 近似 : 


其 (四 一 cos( 切 (1 十 二 Y( 切 三 sin( 切 (1 十 mm 
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7.10 蜗 形 球台 的 图 像 解 





令 球 的 坐标 是 已 = [-0.8,0.2] 和 @ = [0.6, -0.8]. 这 样 这 些 球 的 位 置 接近 星 形 角 的 顶端 (图 7.13). 
我 们 将 象 前 面 一 样 求 解 这 个 例子 ， 但 是 我 们 将 看 到 ， 函 数 DP4 和 dl! 将 有 许多 零点 . 


XICt) := cos(t)*(1 + sin(5*t)/5) : 

Y(Ct) := sin( 世 )*(1 + Sin(5*t)/5) : 

P[x]j := -4/5: P[Iy] := 1/5: Q[x] := 3/5: Q[y] := -4/5: 

plot(C{tDAA，dl1}, 七 =0..2*Pi); 

Dan := DAA/evalf(abs(subs(t = fsolve(diff(DAA ，t) ， 
t，1..1.5) ，DAA77 7 

dln := dlLll1/evalf(abs(subs(t = fsolve(diff(dqdl11，t) ， 
0 

pl:=plLlot(Dan,t = 0..2*Pi,Linestyle=0) : 

pP2:=plot(dlin,t = 0..2+*Pi,Linestyle=3) : 

display({P1,P2j}) ; 

Plot(Ctpan，dln, 了 七 = 0..2*Pji]); 


MAVVYMMVMMYVYVVYVVMYVYVMYMVYVYV 


图 7.11 和 图 7.12 用 来 显示 描述 目标 点 位 置 的 两 个 不 同 的 函数 D44 和 dl. 如 图 所 示 ， 这 里 一 共有 
十 个 目标 点 ， 但 其 中 有 些 是 不 能 被 接受 的 ， 因 为 台球 的 轨道 与 球台 的 边界 交叉 ， 我 们 将 通过 检查 
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图 形 解 来 求 出 正确 的 目标 点 . 


YYVYVYVMVMYV 


7.11. 星 形 球台 的 画 数 Dam 和 dm 


1I01 


图 7.12. _ Dan 和 dim 的 参数 图 





tAL1] 
tAL[L2] 
tA[3] 
七 AL4] 
tAL5] 


fsolve(DAA 
fsolve(DAA 
fsolve(DAA 
fsolve(DAA 
fsolVve(CDAA 


中 人 人 
品 口 口 口 口 


ee 


图 7.13 星 形 球台 的 图 像 解 





，0.3..0.4) ; 


七 

七 0.9..1.0) ; 
蕊 二 6 
古 ，2.3..2.4); 
二 27 
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> thAL[6] := fsolve(DAA = 0, 七 3,3..3.5) ; 
> ttA[7] := fsolve(DAA = 0, 七 4.0..4.2)， 
> ttAt8]j := fsolve(DAA = 0, 七 4.7..4.9) | 
> ttAL[9] := fsolve(DAA = 0, 七 5.3..5.5); 
> ttAL1i0]j := fsolve(DAA = 0,t，5.5..5.7)， 


t41 := .3824290257 
t42? := .9324776977 
t43 := 1.527744928 
t44 := 2.341434311 
t45 := 2.760135295 
t46 := 3.396070545 
lt47 :一 4.072484425 
t4a8 := 4.807203452 
t49 := 5.401272765 
t41o := 5.638437107 


> ResultPlot(P[xj，P[Ly]，Q[x]，Q[fy] ，X(Ct)，Y(t) ， 
> Dan，0，2*Pi，tA，10，-1.4..1.8，-1.6..2.2)， 


确定 正确 目标 点 的 第 二 个 可 能 是 使 用 台球 轨迹 的 参数 表示 . 这 条 轨迹 包含 两 条 直线 段 ， 从 第 一 个 
球 已 的 位 置 到 球台 边缘 的 目标 点 (反射 点 )T; 的 站 和 从 五 到 第 二 个 球 的 位 置 C 的 52. 这 些 直线 可 
以 使 用 参数 v 描述 为 参数 形式 . 


[1 : 2 一 已 十 ULTi 一 疡 ) 1 zz 一 Qz 二 UL( Ti 一念 -) 
yy 一 已 十 UL 一 已) yy 三 Gy 十 MUTi 一 已 y) 


现在 我 们 可 以 求 出 直线 4 和 12 与 球台 边界 的 交点 . 我 们 直接 计算 相应 的 参数 wa,...,ua. 如 果 它 
们 的 值 满足 0 < ui < 1 这 表明 在 直线 段 上 至 少 还 有 另外 一 个 交点 . 于 是 这 条 位 于 球 的 位 置 和 反射 
氮 之 间 的 轨道 是 不 能 使 用 的 . 图 7.13 显示 出 这 里 有 两 个 不 能 使 用 的 反射 点 五 和 友 . 图 中 显示 出 
线段 QT 与 球台 的 边界 在 线段 的 内 部 相交 : 


T1l[x]j := evalf(subs(t = tA[1] ，X(Ct)) ) : 
Tlty]j := evalf(subs(t = tA[1] ，Y(Ct) ) ) : 
eql := XIt) = Q[x]j + ur(T1[x] -~- QIx] ) : 
eq2 := YIt) = QLy]j + u*(Tl[y] -~ Qty] ) : 
fsolve({eql，eq2}，fu，t}，fu = 0..0.5，t=3*y*Pi/2. .2*Pi}) ; 


YYVVYVY YYV 


廿 一 5.810766136, v = .3288529247} 
> fsolve({teqt，eq2}+，fu， t}， 人 fa = 0.33..0.8, 蕊 = 5.82..6.2}); 
{fu = .5576715283, 上 一 6.162750379} 


我 们 看 到 线段 QTi 在 点 Q 和 五 之 间 与 球台 的 边界 相交 了 两 次 , 相应 的 参数 值 是 wa = 0.3288529247 
和 va = 0.5576715283. 
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7.5 结论 


使 用 MAPLE, 我 们 用 两 种 方法 解决 了 广义 台球 问题 . 图 形 和 数值 表明 两 个 方法 的 结果 是 相同 
的 .使 用 广义 反射 法 得 出 最 终 的 方程 要 比 最 短 轨 线 法 更 加 困难 . 但 是 当 所 有 的 变量 被 奉 换 以 后 ， 
第 一 个 方法 的 最 终 方程 D4 要 比 第 二 个 方法 的 结果 民 更 简单 . 使 用 第 二 个 方法 ， 我 们 必须 计算 各 
种 函数 的 平方 根 及 其 一 阶 导 数 . 因此 第 二 个 方法 的 最 终 方程 要 更 加 复杂 . 复杂 到 什么 程度 要 取决 
于 球台 边界 的 形状 ， 对 于 某 些 边界 函数 完全 可 能 第 二 个 方法 的 结果 更 简单 . 

第 一 个 方法 可 以 被 推广 到 N 次 反射 的 轨道 . 也 就 是 说 第 一 个 球 在 撞击 到 第 二 个 球 之 前 首先 要 
撞击 边界 V 次 . 但 是 第 二 个 方法 就 没有 这 样 一 个 推广 . 在 这 个 情形 下 最 短 轨 线 的 性 质 不 会 满足 反 
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.已 azto 放 


8.1 疝 未 解决 的 问题 


为 解决 广义 台球 问题 我 们 使 用 了 广义 反射 法 . 这 个 方法 基于 对 第 一 个 球 的 位 置 的 镜像 点 M 的 
计算 . 在 第 七 章 的 图 7.2 中 当 我 们 沿 着 球台 的 边界 移动 点 人 时 点 M 也 跟着 移动 ._M 就 描绘 出 一 
条 镜面 曲线 ， 它 依赖 于 边界 在 点 了 的 切线 斜率 的 变化 . 这 条 镜面 曲线 依赖 于 点 已 的 位 置 和 球台 边 
田 的 形状 . 

在 求解 广义 台球 问题 时 没有 必要 去 确定 镜面 曲线 的 形状 . 但 是 这 条 曲线 是 非常 重要 的 .很 遗 
十 还 没有 进一步 讨论 过 它 ， 我 们 将 使 用 MAPLE 的 图 形 功 能 来 做 这 件 事 . 


8.2 使 用 MAPLE 生成 镜面 曲线 


因为 镜像 点 的 位 置 由 两 个 坐标 M = [Mz, ay] 给 出 ， 它 们 都 依赖 于 参数 刀 我 们 就 得 到 了 镜面 
曲线 的 参数 方程 (参见 [). 将 微分 运算 用 于 第 七 章 得 到 的 方程 刀 4 (参见 7.2.3 和 表 7.1) 很 容易 得 
到 曲线 的 形状 . 这 里 我 们 仅仅 显示 计算 Mz, My 的 必需 的 步骤 . 结果 是 


> E2 := solve({C[y] - P[y]j = kzk[2]*(C[x] - P[x])， 
> CLy] -~ YGt) = kxk[1]*(C[x] - XCt))}，{C[x] ，Cfy]j})>: 
> assign(E2) : 
> kL4]Jj := diff(Y(t)，t)/diff(X(t) ,t) : 
> kf[f2] := -1/kf[li] : 
> M[x]j := normal(P[x] + 2*(C[x] - P[x]y)y); 
> ML[y] := normal(PLy] + 2*(C[y] - P[y])) ; 
Me := 一 (一 ( 头 和 (的 ) 2 忆 十 已 ( 曲 Y( 的 )2 一 2 书 ( 间 YYG) (如 入 人) 1 
+2Y(O (各 Y(D)( 台 XGO) 一 2( 台 Y(O)2X(D) /(( 禹 X(6)2 二 ( 昌 YGO)2 
My := (- 书 ( 雇 和 X 的 )2 十 书 ( 识 Y 的 )2 十 2( 闽 X()2Y(G) 一 2X 人 (是 Y() (是 入 () 
8. 


二 2 忆 ( 吝 Y()( 意 X(D)) / (( 训 以 (的 关 十 ( 京 Y()) 


对 于 给 定 的 样板 曲线 和 一 个 镜像 点 书 , 我 们 能 够 生成 它 的 镜面 曲线 例如， 考虑 一 条 抛物 线 ， 令 点 
书 治 着 y 轴 由 初始 位 置 玉 = -3 到 终止 位 置 丈 = 3 移动 ， 步 长 为 Ay = 1( 参 见 图 8.1). 在 三 维 图 
上 (图 8.2) 我 们 可 以 看 到 以 点 媚 为 函数 的 镜面 曲线 的 连续 变形 . 


Xtt) := t 上 : YIt) := t 上 "2/2: 

P[xj] := 0: 

mL[xj := simplify(M[x]j): m[y] := simplify(M[y]) : 

SPyY := [seq(i/2，1 = -6..6)]: 

pl := Plot({seq([m[x] ，m[ty] ，t=-4..4]，P[y] = SPy)}， 


VMVVVYV 
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> Color = black，thickness = 1): 
> p2 := plot([LIXGt)，Y(t), 七 = -4..4]，view = [-4 .，4，-4 .. 4]， 
> thickness = 2) : 
> with(Plots) : 
> display({p1l1，P2}，scaling = constrained) ; 
> PLy]j := :Pty]j，: 
> plot3d(subs(P[y] = Py,[P[y] ，m[xj，mr[y]])，Py = -3..3， 
> t = -3..3，axes = boxed，orientation = fl15 ,30] ， 
> Labels = [?Py，，?Mx:，?:My:] ，grid = [40，40] ) ; 


图 8.1 抛物 线 镜面 曲线 


| 

3 

[人 

六 
NE 

NS 

人 NNN 
站 


刀 


8.3 反问 题 


105 


对 于 已 知 的 镜面 曲线 和 一 个 给 定 的 点 ， 求 原始 的 样板 曲线 ， 这 是 镜面 曲线 问题 的 反问 题 . 反 
问题 是 非常 复杂 的 . 在 这 个 情形 下 Mz = Mz 人 ,My = Mo 人 划 , 严 , 玉 是 已 知 的 ， 我 们 必须 对 函数 
所 人 求解 微分 方程 组 (8.1) 和 (8.2). 一 般 来 说 ， 使 用 MAPLE 的 dsolve 函数 无 法 给 出 微分 方 


程 组 的 解析 解 ， 必 须 使 用 数值 解法 . 
8.3.1 还 回 求解 


然而 , 非常 有 意思 的 是 使 用 几何 证 明 我 们 能 够 得 到 微分 方程 组 (8.1) 和 (8.2) 的 准确 的 解析 解 . 
为 了 儿 何 地 求解 这 个 问题 ， 我 们 考虑 图 8.3. 它 说 明了 对 于 给 定 的 镜面 曲线 和 镜像 点 如 何 求 出 样板 
曲线 . 令 Me 是 给 定 的 镜像 面 曲线 ， 忆 是 样板 曲线 (原始 的 曲线 ), 已 是 给 定 的 镜像 点 ， AM 是 镜 
面 曲线 上 的 点 ， Mi 和 Ms2z 分 别 是 镜面 曲线 上 在 M 点 左边 和 右边 的 点 ， 他 是 样板 曲线 上 的 点 ， 


li 是 曲线 忆 在 点 工 的 切线 . 


首先 我 们 必须 记 住 镜 面 曲 线 Me。 是 如 何 产生 的 .我 们 选择 样板 曲线 灵 上 的 一 点 全 我 们 做 样 
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图 8.2 抛物 线 镜面 曲线 的 连续 变形 


二 = 人 iNOSN 
有 和 0 
二 二 二 二 AAA 





板 曲线 在 这 个 点 的 切线 4#. 这 条 线 作 为 镜面 直线 被 用 来 构成 点 M( 即 1 是 点 已 和 M 的 对 称 轴 ). 当 
点 了 沿 着 已 移动 时 ， M 就 描绘 出 了 镜面 曲线 Me. 


图 8.3 镜面 曲线 和 样板 曲线 的 结构 


Mec M1 





8.3.2 ”样板 曲线 上 点 的 几何 结构 


给 定 一 个 固定 的 点 忆 和 一 条 镜面 曲线 ， 我 们 的 问题 是 要 确定 样板 曲线 .仅仅 求 出 一 个 点 就 足 
够 了 ， 如 果 能 够 求 出 样板 曲线 上 的 一 个 点 ， 则 就 可 能 一 个 点 一 个 点 地 构成 整个 的 曲线 .由 上 一 节 
的 分 析 可 知 ， 样 板 曲线 的 切线 是 固定 点 已 和 镜面 曲线 M- 上 某 一 点 M 之 间 的 对 称 轴 - 这 在 求解 
反问 题 中 将 是 有 用 的 . 

我 们 可 以 在 镜面 曲线 Me 上 选择 点 M, 点 Ma 和 M2. 令 点 Mi 是 M 左 侧 的 一 个 “小 ”距离 的 
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点 ， Ma2 是 点 M 右 侧 的 点 . 则 连接 点 已 和 镜面 曲线 上 的 相应 点 ， 我 们 就 得 到 线段 lo, lc 和 /cz. 令 
1 1 ,la。 是 相应 的 对 称 轴 . 令 人 五 是 直线 上 和 品 的 交点 ， 同 时 令 72 是 直线 上 和 jz 的 交 操 . 由 反 
嫉 和 有 丈 描 出 的 线段 就 是 所 要 求 的 样板 曲线 的 割 线 . 随 着 WMi 和 Ms2 趋 近 于 中 心 点 M, 割 线 逐 渐变 
短 . 有 如 下 极限 


《一 
lm 1172 一 0 

fl 一 RE 一 

RMf2 一 AM 十 


于 是 这 条 线段 就 收 义 为 一 个 点 .这 个 点 就 是 我 们 要 求 的 样板 曲线 上 的 点 瑟 . 对 于 下 一 个 点 我 们 将 
重复 同样 的 过 程 来 确定 . 


表 8.1 反问 题 中 使 用 的 主要 变量 





变量 意义 

各 ( 罗 了 | 天 均 王莽 志 = 三 9 的: 镜面 曲线 
忆 , 日 三 三 ob 日 三 mp 的 :计算 的 样板 曲线 
zy 固定 点 的 坐标 

dt At 参数 上 的 “小 ” 步 长 

dX 人 b) Xtt 土 AN/At 

dy 人 YLt 土 Ai)/At 


8.3.3 MAPLE 解 


镜面 问题 反问 题 的 解析 解 基于 前 面 给 出 的 几何 结构 . 因为 点 Mi, Ms 处 于 距 中 心 点 M 很 小 的 
距离 处 ， 我 们 可 以 用 Taylor 级 数 去 表示 函数 Mi (ti Ma (bb Mo。 (bo ( 切 . 
为 求解 这 个 反问 题 我 们 使 用 表 8.1 所 列 的 函数 和 变量 . 


并 【让 放 2 


P[xj := :PtxJj:: PLyJ := :'PLy]j :: 

Cl15x]j := (CX1Ct) + P[x]j7V2: 

Clry]j := (YL1(t) + P[y]7)7V2: 

C2[x] := (X2(t) + P[x])/2: 

C2[y]j :=〈Y2(t) + PEy] )/2: 

k[1] := -ty(P[x] - Xl(t))VCP[y]j - YL1(Ct) ) : 
k[2] := -ty(P[x]j - X2(t))V(PL7]j - Y2(t)) : 


Et := solve({Theta - C1[Yy] = Kk[ti]*(Xi - Cl[x] ) ， 

Theta - C2[y] = K[2]*(Xi - C2[x])}+，{X，Thetal): 
asSsign(E1) : 
XtLCt) := XCt) - GqXCt)*dt: YlCt) := YIGt) - GY(Ct)*dt: 
X2(t) := XCt) + dX(t)*dt: Y2(t) := YCt) + qdY(t)*dt : 
Xi := Dormal(Xi); Theta := Dormal(Theta) ; 
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[ 


芭 -5(- 书 3 ax 四 一 已 2daY( 介 一 Y(b2dY( TadY(bX(D2 +dY(b di2dX(b2 


一 2Y 人 XIdXO 蚊 二 2 已 X(dXG+adY(Dadt2 十 2PY(bdYO) / ( 
-PdX 人 + PdYy 人 b+Y(G)dXG -daY(X(b) 


村 (一 已 dx 人 -2X(bYtdavx 人 二 2PoY(adaY 人 (上 2PX(tdX( 十 dX(b3 dt2 
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+dX(bY(b2 十 daX 人 (dt2dYy(b2 一 X(t2dX(b 一 已 2dX 人 tb) ， ( 
-PdXO 上 + PdY 提 +YGdX(b -daY(DX(b) 


8.3.4 解析 解 
对 于 二 ,日 的 MAPLE 表达 式 仅 仅 包含 di 项 , 没有 二 项 . 如 果 计 算 表 达 式 limuw yo 三 和 1limu_ yoe@ 
则 dt 项 趋 于 零 ， 同 时 dX(b 和 dY(b 项 变 为 碟 ( 昌 玫 (人 ( 雪 . 


> Xi := limit(Xxi，dt = 0): Theta := limit(Theta，dqat = 0): 
> qdqxGt) := diff(XCt)，t): dy(t) := diff(Y(t) ， 七 ) : 

> Xi := collect(Xi，[daiff(XGt)，t)，diff(Y(t) ,tt)] ) 

> Theta := collect(Theta，fdqiff(XCt)，t)，diff(YyY(t)，t)]) ; 


= := (2 YX 人 (一 2 书 入 ( 的 ) ( 昌 和 昌 ) 十 ( 己 2 十 已 2 +Y(G2 一 Xb2 一 2 PYO) 


(8.3) 
(时 Y(D)) ((Y( 一己) ( 旺 X(G))T(P 一 XCG)( 晤 TD) 


G :== -5((Po 一 2 已 和 人 扫 十 天 一 YY 人 (区 2 十 和 (2) ( 亏 X( 人 人) 十 (2Y( 人 和 X 一 2PYO)) 
(二 区)) /vag 二 于 g) (于 芭 ( 划 ) 十 (五 一 区 ()) 和 Y CO))) 


使 用 dsolve 关于 XbO 和 了 工 ( 介 求解 方程 组 (8.1) 和 (8.2) 对 于 MAPLE 来 说 一 般 是 非常 复杂 的 . 但 
是 通过 我 们 的 迁 回 求解 方法 就 可 以 使 用 MAPLE 在 一 般 的 情形 下 得 到 明确 的 解析 解 (8.3). 


8.4 例子 


现在 我 们 可 以 使 用 计算 样板 曲线 的 方程 (8.3) 来 检验 我 们 的 解 . 求 得 的 样板 曲线 的 镜面 曲线 应 
该 与 样板 曲线 计算 中 作为 输入 的 已 知 镜面 曲线 相同 . 


8.4.1 圆 作为 镜面 曲线 


我 们 可 以 求 出 对 于 贺 和 一 个 固定 点 的 样板 曲线 . 不 失 一 般 性 ， 我 们 可 以 假设 镜面 曲线 的 半径 
为 1], 即 ， 我 们 使 用 单位 圆 作 为 镜面 曲线 . 现在 对 于 固定 点 已 的 每 个 位 置 我 们 可 以 旋转 坐标 系 使 得 
可 =0, 坐标 忆 可 以 是 变量 如果 已 位 于 圆 的 内 部 ， 则 已 < 1. 如 果 已 >1 则 尸 在 圆 的 外 部 . 
当 忆 =1 时 疡 点 在 圆 上 . 
> XCt) := cos(t): YIt) := sin(t): P[7] := 0: 
> Xi := Simplitfy(Xi); theta := Simp1ify(Thetal) ; 
1 cos 人 的 (一 1 十 己 ?) 


2 一 二 cos(t) 三 
1 sin(t (一 1 十 己 
如 ”一 一 
2 一 1 十 costi) 疡 
> Xt) := Xi: Y(t) := theta: 
> ZLlxj := simplify(M[x]j); mL[y] := simplify(MLy] ) ; 


mlz :一 cos 人 zt) 
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ny :一 Sin(t) 


当 样 板 曲线 6,6 被 代入 方程 中 计算 镜面 曲线 X 芍 ,YGb 时 ， 输 入 和 输出 是 相等 的 . 我 们 可 以 用 它 来 
证 明 两 个 曲线 的 方程 组 的 由 来 是 正确 的 . 
现在 我 们 必须 求 出 样板 曲线 的 方程 . 它 的 参数 式 是 : 


，_ cos 人 Fe 一 Jsintb(CEz 一 1 
2 已 cos 四 二 1 Pocos 人 二 D 


它 看 起 来 似乎 是 一 条 圆锥 截 线 . 为 确实 起 见 ， 我 们 求 出 这 条 曲线 的 解析 表达 式 . 


MVMMM NM 


El1 := Simplify(Csubs(t = Solve(Cxi = X， 七 ) ， 
Y”`2 = theta`2) ，Symbolicy): 


E2 := collect(4+*E1，[X-2，X ,PLx]]) : 
E3 := factor((E2) ) : 
E4 := normal(map(t->t/(P[x]`2-1)，subs(X = (Xs+P[x])/2，E3) ) ) : 
E5 := stbs(Xs = 2*X-P[x] ,map(t->t+Xs ”2，-expand(E4) ) ) ; 
2 
和 
一 1 十 三 


正如 我 们 从 最 后 的 方程 E5 所 看 到 的 ， 单 位 圆 的 样板 曲线 总 是 一 条 圆锥 截 线 . 如 果 固 定点 在 圆 的 内 
部 , 这 条 样板 曲线 是 栅 圆 . 对 于 圆 外 的 点 它 是 双 曲 线 . 圆锥 的 中 心 C 总 是 有 坐标 Cz = 已 /2,Cy = 0. 
圆锥 的 主 半 轴 是 ao = 1/2, 同时 次 半 轴 是 5 = VIE2 - 1M/2. 对 于 椭圆 有 离心 率 e = Va2 一 刀 . 对 于 
双 曲 线 有 e = Vo- 十 刀 . 我 们 可 以 计算 两 个 焦点 之 间 的 距离 ， 它 们 等 于 2e 和 严 . 因为 圆锥 的 中 心 
有 坐标 Cz = 瑚 /2 焦 点 的 坐标 总 是 等 于 玉 三 [0,0| 和 到 =[P,0]. 我 们 现在 展示 几 个 例子 .为 了 
避免 不 连续 性 有 必要 把 图 P2 分 为 p21 和 P2T 两 部 分 . 


MVYMMYMMYMVMVMVYMVVMMYMMYMVMYMVMVM YYV 


8.4.2 


XCt) := cos(t): YLt) := Sin(t) : 

PLy] := 0: P[Lx]j := ?P[x]，: 

SPx:=[seq(i/10,i=0..9)]: 

P1 := plot({seq([xi，theta, 七 = 0..2+Pi]，P[x]j = SPx) |}， 
Color = blacKk，thickness = 0): 

P[xj := ?P[x]j，: 

SPx := [seq(L+i/10，i = 1..10)] : 

PXR := arccos(1/P [xj] )*99/100: 

P2r := plot({seq([Exi，theta,， 七 = -PxR. .PxR] ，P[x]=SPx) }， 
color = black，1inestyle = 3): 

Pftx]j := "pf[x]j，: PxL := arccos(1/P[x])*101/100: 

P21 := plLlot({seq([xi，theta, 七 = PxL..2*Pi - PxL] ， 
P [x]=SPx)}，color = black，1linestyle = 3): 

P3 := plot([XGt)，YGt)，, 七 = 0..2*Pi]， 
View = [-1.5 ..2，-1.5.. 1.5] ，thickness = 2) : 

dispPlay({Pp1，P2r，P21，PpP3}，scaling = constrajined) ; 


直线 作为 镜面 暴 线 


现在 我 们 考虑 直线 作为 镜面 曲线 . 因为 这 个 问题 有 移动 的 对 称 性 ， 我 们 可 以 令 镜 面 直 线 在 坐 
标 系 的 X 轴 上 ， 而 固定 点 己 在 了 轴 上 ， 于 是 严 =0 和 书 是 变量 . 于 是 我 们 可 以 计算 玉 的 样 
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图 8.4 贺 作 为 镜面 曲线 





板 曲 线 函 数 . 
> XIt) :=t: YL) :=0: PLxj := 0: Pty]j := :PLyj ): 
> xi := simplify(Xi); theta := Simplify(Theta) ; 
EC 
2 
十 蕊 
2 . 瑟 
> Xt) := xi: YLt) := theta: 
> Imfx]j := simplify(MLxJ); mty] := SimplifytMLy] ) ; 
7 :一 蔷 
7 
> RL := subs(xi = XXX Y = theta) ; 
1 “十 天 2 
> 
2 下 


我 们 得 到 一 个 依赖 于 参数 刀 的 抛物 线 族 ， 现在 我 们 尝试 求 出 其 包 络 并 绘制 一 些 例 子 . 
> E2 :=【=A:E3 := 了 =-~ 欠 : 
> Solve({E1，E2}，{X,Y})7; solve({E1，E3}，{X,Y}) 


这 三 有 = 三 忆 = 记 } 
(全 有 局 他 二 上 二 二 局) 
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我 们 看 到 ， 直 线 的 样板 曲线 总 是 一 个 抛物 线 方 程 . 抛物 线 的 顶点 是 从 点 书 到 镜面 直线 的 垂 线 线段 
的 中 点 . 抛物 线 的 焦点 与 固定 点 尸 重 合 . 当 坐 标 殊 改变 它 的 数值 时 ， 抛 物 线 充满 了 由 条 件 y > z 
和 ?> -z 给 出 的 区 域 ， 这 两 条 直线 构成 了 抛物 线 的 包 络 . 图 8.5 显示 出 了 这 些 抛物 线 的 边界 ， 
SPy := [seq(i/4，i = 1..16)]: 
pl := plot(C{seq([xi，theta, tt 上 = -6..6]，P[y]j = SPy) }， 

color = black，thickness = 1): 
P2 := plot(C[[-6，6]，[0，0] ，[6，6]] ，thickness 
display({pl，Pp2}，view = [-6..6，0..8] ，scaling 


仿 广 : 
constrained) ; 


MY MYMYMV YV 


图 8.5 直线 作为 镜面 曲线 


8.5 结论 


使 用 MAPLE 成 功 地 解决 了 镜面 问题 的 反问 题 . 完全 可 能 求 出 圆 和 直线 的 以 固定 点 书 为 函数 
的 样板 曲线 的 一 般 形 状 . 为 此 必须 求解 一 个 很 大 的 方程 组 ， 即 (8.1)，(8.2) 和 (8.3), 这 是 毫 无 困难 


8.6 样板 曲线 -0.9< 已 <0.9,Py =0 图 8.7 样板 曲线 已 =0,-0.6< 己 和 0.6 


Se 





我 们 可 以 展示 以 固定 (镜像 ) 点 为 函数 的 样板 曲线 的 连续 变形 (参见 图 8.6 和 8.7). 如 果 我 们 沿 
者 任意 的 一 条 适当 的 曲线 移动 固定 点 ， 则 时 使 得 相应 于 固定 点 位 置 的 镜面 曲线 位 于 垂直 于 已 知 曲 
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线 的 平面 上 ， 这 个 平面 与 给 定 曲线 的 交点 与 固定 点 的 瞬时 位 置 相 重合 ， 使 用 位 移 长 度 作 为 第 三 坐 
标 ， 我 们 可 以 产生 图 8.8 所 示 的 三 维 图 形 . 


MYVVYMVYMMYMMYMVYVYMVMYVMVMVYMVMYMVYVMVYMVYVVMVYVVY YYV 


图 8.8 样板 曲线 的 连续 变形 
书 一 So 有 一 2 世 , 一 T 妇 三 去 T 


本 





a:=1: Pb:=5/8: 
rho := Sqrt(a`2*+*cos (t) “2 + b>~2*+SjiD(t) 2) : 
X(Ct) := rhoyrcos(t): YIt) := Tho*yrsin(t) : 
pl := plot([XCt)，Y(t)，, 七 = -Pi..Pi]，thickness = 3) : 
P[x] := 'P[x]j?: P[y]j := 0: 
xi := simplify(Xi,symbolic): theta := simplLify(Theta,symbolic) : 
SPx := [seq(i/10，i = -9..9)] : 
pP2 := plot({fseq([xi，theta, t= -Pi..Pi] ，P[x] = SPx) |， 
thickness = 1，color = black) : 
display({p1，P2}，azxes = boxed，scaling = constTained) ; 
P[x] :=0: Pr[y]j := ?PLy]，: 
xi := simplify(Xi,symbolic): theta := simplify(Theta，Symbolicy) : 
SPyY := [seq(i/li0，i =-6..6)] : 
p2 := plot({fseq([xi，theta，t= -Pi..Pi],P[y] = SPy)}， 
thickness = 1，color = blLack) : 
display({pl，P2}，azxes = boxed，scaling = constLained) ; 
P[x]j := cos(tau)/2: PLy] :=sin(tau)V2: 


xi := simplify(Xi，symbolic): theta := Simplify(Theta，Symbolic) : 


Plot3d([xi，theta，tau]l , 必 = -Pi..Pi，tau = -Pi..Pi ， 


grid = [90，90] ，axes = none，orientation = [-110，90]) ; 
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我 们 还 不 知道 镜面 曲线 在 现实 世界 的 应 用 中 是 不 是 有 用 .似乎 由 我 们 的 几何 讨论 所 得 到 的 解 
析 解 是 全 新 的 ， 我们 可 以 想象 到 它 在 物理 学 特别 是 在 光学 上 的 应 用 . 例如 ， 对 于 已 知 的 光学 仪器 
上 由 样板 曲线 描述 的 光学 性 质 ， 人 们 就 可 以 求 出 由 镜面 曲线 描述 的 技术 参数 . 


参考 文献 


上 互 .J. BARTSCH，Taschenpuch Matermatischer Formeln, Fachbuchverljag，BRD, Leipzig,1991. 
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在 许多 的 应 用 中 ,有 一 个 应 用 是 测量 变量 . 变量 本 身 缓慢 地 变化 ， 同 时 受到 随机 曲 声 的 干扰 . 
于 是 ， 为 了 重建 潜在 的 光滑 函数 ， 通 常 应 用 一 个 光滑 滤 子 来 测量 数据 .假设 噪声 是 独立 于 观 守 变 
量 的 ， 并 假设 噪声 服从 均值 为 0, 标准 差 为 6 的 正 态 分 布 . 

在 本 章 中 , 我 们 将 讨论 这 种 光滑 问题 的 两 种 不 同方 法 : Savitzky-Golay 滤 子 和 最 小 二 乘 滤 子 . 
借助 测试 盟 数 


严 (z) := e 一 100(z 一 1/5) 举 ee 一 500(z 一 2/5) 十 e 一 2500(z 一 315) 于 e-12500(z 一 4/5) ， (9.1) 


我 们 将 分 析 这 两 个 浪子 的 性 质 . 此 函数 有 四 个 不 同 宽度 的 凸 起 (参见 图 9.1). 
在 MATLAB 中 ， 由 算法 9.1 的 语句 ， 可 产生 一 个 长 度 半 = 1000 的 向 量 导 它 由 测试 数据 组 成 ， 
此 数据 受到 标准 差 65= 0.1 的 随机 噪声 的 干扰 . 我们 得 到 图 9.2 所 显示 的 样本 数据 . 
在 下 面 几 节 里 ， 我 们 将 用 上 := 1 nm 表示 测试 数据 ， 用 gj = 1 ,mm 表示 光滑 数据 . 
工法 9.1 噪声 数据 的 生成 
Rn = 1000; 
Gelta = 0.1; 
x = LO0:n-1] /Cn-1) ; 
F = exp (~ 100*(x - 1/5).”2) + exp (- 500*r(xX - 2/5) .2) + ... 
exPp 〈(-2500*+ (x - 3/5). ”2) + exp (-12500*(xX - 4/5) .>2) ; 
randn (seed:，，0) ; 
ft = 下 +delta * Iandn (Size (X) ) ; 


9.2 Savitzky-Golay 滤 子 


在 1964 年 ， A. Savitzky 和 M. J. 卫 . Golay [10] 引入 这 种 光滑 方法 . 原始 论文 有 一 些 错误 ， 但 
在 HH 中 已 被 改正 ， 读者 也 能 在 [8] 中 找到 有 关 此 主题 的 另 一 些 介绍 . 

主要 思想 是 ， 通 过 取 点 zi 附近 数据 的 平均 ， 得 到 它 的 光滑 数值 gj. 最 简单 的 方法 是 计算 固定 
数目 的 上访 的 移动 平均 . 

更 一 般 地 ， 我 们 也 可 根据 这 周 定 个 数 的 点 拟 合 一 个 多 项 式 . 多 项 式 在 z; 的 值 ， 就 给 出 光滑 值 
4. 图 9.3 显示 这 种 思想 ， 其 中 nz 表示 zi 左边 点 的 个 数 和 maR 表示 zi 右边 点 的 个 数 ， pi(z) 表示 
一 个 M 次 多 项 式 ， 它 在 最 小 二 乘 意 义 下 拟 合 这 mr 十 mR 二 1 个 点 ， 因 此 ， 有 上 = pi(zi). 
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9.1 光滑 函数 已 (z) 


光 消 数 搭 (n=1000) 


必 上 0.2 0.3 04 0 0.6 G.7 0.8 039 


9.2.1 滤 子 系数 
根据 数据 卢 拟 合 的 M 次 多 项 式 pi(z), 可 写成 





< 2 一 2i 
pi(z) := 这 pt 人 二 和 (9.2) 
假设 横 坐 标 rz; 具有 zi+l - zi = Arz 的 均匀 间距 . 为 了 在 最 小 二 乘 意义 下 用 pi(z) 拟 合 测试 数据 ， 
我 们 必须 确定 系数 大 , 使 得 


?十 iR 


> (io 一 廊 ) 一 min， (9.3) 


323 一 ?一 位 了 


图 9.2 曲 声 函数 Fz) 


陈 /二 数 斯 (n=1000) 
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图 9.3 最 小 二 乘 多 项 式 pi(z) 
J(Z) 
灾 1 一 mL Zi 2 
我 们 定义 迭 阵 
(nz -oz 1 
二 0 0 1 | ERO"zTnR+Dx(MTI) 
7 他 玉 1 
及 两 个 向 量 
DAM 
生 : 区 有 RMT+1 
1 
bo 
利 
态 -n 
fs 大 二 
访 +m 


注意 ， 和 矩阵 4 既 不 依赖 横 坐 标 zi, 也 不 依赖 间距 Arz. 
利用 这 些 定义 ， 我 们 将 最 小 二 乘 问题 (9.3) 重新 叙述 成 矩阵 形式 


4b 一 下 。 = min . 


作 . Camnader，L. Vonm Afa 夺 


(9.4) 


(9.5) 


(9.6) 


(9.7) 


现在 利用 4 的 CR 分 解 (参见 [5, 第 5 章 ]) 可 求解 (9.7) 得 到 b. 然而 ， 为 了 过 滤 的 目的 ， 只 


需要 知道 9 = piktzi) = 00.(9.7) 的 解 b 也 可 表示 成 法 方程 


41L14b = 41f 


(9.8) 
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的 解 . 于 是 ， 我 们 得 到 
9 = ef (4T4) ”4Tf， (9.9) 


其 中 exx+l 是 (Ag 二 1) 维 的 单位 向 量 . 
显然 ， 9i 可 表示 为 访 的 一 个 线性 组 合 . 定义 向 量 


c := 4(4T4) enr+i (9.10) 


包括 滤 子 系数 c_ ,cnn: 因为 e 不 依赖 于 zi 和 Az, 只 需 计算 它 一 次 .利用 简单 的 数 乘 ， 可 计 
算 所 有 的 光滑 数值 g， 


2 十 也 民 
纤 一 clff 一 六 CT 一 ; 二 (9.11) 


了 一 ?一 9 


对 于 很 大 的 M, 根据 方程 (9.10). 计算 向 量 c 可 能 不 精确 .这 种 不 精确 归 因 于 4 的 条 件数 是 4 4 
的 平方 . 另 一 方面 ， 众 所 周知 ， 利 用 @ 忌 分 解 


4=Q@QR (9.12) 


求解 最 小 二 乘 问 题 (9.7) 是 稳定 的 . @ 表示 一 个 (nz +mnR+l)x(CMM+1l) 的 正 交 矩阵 ， 尺 表示 一 
个 MUM+DLD x+HUD 的 上 三 角 和 矩阵 . 如 果 将 分 解 (9.12) 代入 (9.10), 可 得 到 向 量 c 的 表达 式 


[| 
c 三 一 一 一 一 eaAr+1. (9.13) 
TAI 二 LA 十 1 


这 是 计算 < 的 一 个 不 错 的 数值 方法 ， 奇怪 的 是 [3 和 [10] 都 没有 指出 它 . 
9.2.2 ”结论 


算法 9.2 给 出 了 Savitzky-Golay 光滑 滤 子 . 如 果 将 此 算法 应 用 到 图 9.2 的 光滑 问题 ， 则 得 到 图 
9.4 中 的 光滑 曲线 ， 为 了 参考 起 见 ， 我 们 也 重合 方程 (9.1) 的 函数 玉 的 图 形 ， 对 于 这 个 测试 情况 ， 
取 参 数 mzr =mR=16 和 AM =4 是 最 优 的 . 在 一 台 Pentium Pro 200MJHz 的 PC 机 上 运行 ， 算 法 
9.2 的 执行 时 间 是 6.41 ms CPU 时 间 . 

Savitzky-Golay 滤 子 的 主要 优点 是 它 的 速度 . 对 于 给 定 nz,nmR 和 M 的 值 ， 滤 子 参 数 c 只 需 计 
算 一 次 ， 于 是 ， 可 用 mr 二 ma 二 1 长度 简 单 的 数 乘 (9.11), 计算 每 个 滤 子 化 的 值 %. 对 于 特殊 的 应 
用 ， 可 以 在 硬件 中 实现 此 运算 . 

选取 滤 子 参数 mr,mR,AMd 不 明显 是 它 的 缺点 ._ 1 8, 13] 给 出 一 些 实用 的 提示 . 但 是 ， 在 许多 
情况 下 ， 为 了 得 到 最 好 的 结果 ， 需 要 一 些 可 视 的 优化 技术 . 


算法 9.2 Savitzky-Golay 光滑 滤 子 
function g = SavGol (ff，n1L，P，M) 


A = ones (nlL+Dr+L1，M+1) ; 
tor j = M:-1:1， 
A(:，j) = [-nl:nr]j， .* A(:，j+1L); 
emd 
[Q，R] = qr 《A) ; 
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cC=Q(:，M+l1) /RM+1，M+l) 


= length (fy) ; 
= filter (c (nl+nr+t:-1:1)，1，Tf); 
(1:nLl) = 了 工人 (1L:nl); 


(nli+l:n-nr) = g (nlL+DT+1:D) ; 


mo oo 


(n-nr+lt:n) = 工 (Cn-nr+1:D) ; 


图 9.4 由 Savitzky-Golay 滤 子 光滑 图 9.2 的 数据 


Savitzky-Golay 滤 了 (nij=16, nr=16. M=4) 


0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 
6.41ms 的 CPU 时 条 


最 后 ， 边 界 点 仍 是 一 个 问题 . 它们 不 能 被 一 个 wz > 0 或 ma > 0 的 滤 子 光滑 化 . 正如 图 9.4 所 示 ， 
这 些 边 界 值 被 丢弃 ， 或 者 对 这 些 特 殊 情 况 ， 构 造 有 nz =0 或 mrR=0 的 特殊 的 Savitzky-Golay 滤 
了 于， 
9.3 ”最 小 二 乘 滤 子 
对 于 过 滤 问 题 ， 另 一 种 方法 是 要 求 过 滤 曲 线 g(z) 尽 可 能 光滑 . 在 连续 的 情况 下 ， 我 们 要 求 
三 g"(z) dz 一 mmin . (9.14) 


因为 阴 数 F(z) 只 在 离散 点 zi; 有 测量 数据 卢 , 所 以 只 能 在 相同 的 点 计算 光滑 数值 9i. 因此 ， 必 须 用 
有 限 差分 方法 表示 9g(z) 的 二 阶 导 数 ， 一 个 常用 的 取 法 为 
= 29 十 9i-1 


0 (z 3 (9.15) 
对 于 间距 不 等 的 横 坐 标 zi 可 类 似 地 给 出 . 因此 用 条 件 
如一 工 
放 (9i+1 一 29i 十 9i-1) = min . (9.16) 


z 一 2 
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代 玲 条 件 (9.14). 除 此 光滑 条 件 之 外 ， 还 要 求 在 重 登 噪声 的 极限 内 ， 用 函数 g(z) 近似 /z). 如 果 假 
设 户 的 值 是 受到 均值 为 0, 标准 郑 为 & 的 随机 曲 声 所 和 干扰， 则 我 们 要 求 平均 


lg 一 六 < 4. (9.17) 
对 于 了 个 样本 ， 此 条 件 可 写成 
>》， (9 一 万 王 过 n62. (9.18) 
现在 定义 矩阵 
二 人 村 
1 -2 1 
4 := | E 及 全 21 (9.19) 
2 
于 是 ， 可 用 和 矩阵 符号 重 述 优化 问题 (9.16, 9.18) 为 ， 极 小 化 
1 4g|l。 = min (9.20) 
服从 二 次 不 等 式 约束 
lg 一 fl < a2 := m62. (9.21) 


9.3.1 Lagrange 方程 


现在 研究 优化 问题 (9.20, 9.21) 的 解 . 首先 ， 假 设 矩 阵 4 的 零 空 间 NW(4) 中 ， 存 在 满足 约束 
(9.21) 的 向 量 . 在 这 种 情况 下 ， 要 确定 满足 约束 (9.21) 的 最 好 向 量 g, 即 考虑 极 小 问题 


lg -fl = min (9.22) 
服从 线性 等 式 约 束 
4g = 0. (9.23) 
容易 证 明 ， 这 种 情况 的 唯一 最 优 解 是 
区 一 工 一 4Lz， (9.24) 
其 中 z 是 线性 最 小 二 乘 问 题 
l45z 一 引 > = min (9.25) 
的 唯一 解 . 向 量 z 也 是 对 应 (9.25) 的 法 方程 
447Tz 一 4f (9.26) 


的 解 . 
现在 假设 堆 空间 N44) 中 ,不 存在 满足 约束 (9.21) 的 向 量 . 实际 上 ， 这 意味 着 由 方程 (9.24) 和 
(9.25) 定义 的 向 量 gs NW(4), 满足 
lg 一 引 。> a. (9.27) 
我 们 通过 引进 Lagrange 一 数 


更 (g, 和 ,HA) := gT4T4g 十 和 (lg 一 引 人 十 NA2 一 a2)， (9.28) 
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研究 最 小 二 乘 问题 (9.20, 9.21), 其 中 是 松弛 变量 . 求 更 关于 g, 和 /微分 可 得 到 Lagrange 方程 


(4 4+ATig 三 和， (9.29) 
lg--flz+A2 一 oa2， (9.30) 
AL 一 0. (9.31) 


对 于 入 = 0, 因为 矩阵 4 是 满 秩 ， 所 以 有 454g=0 或 4g=0. 但 是 ,根据 上 面 的 假设 ， 向 量 g 不 
是 零 空 间 NW(4) 的 回 量 ， 因 此 从 现在 开始 ， 我 们 假设 入 和 0. 
由 于 入 关 0, 从 方程 (9.31) 可 得 /= 0. 因此 简化 Lagrange 方程 (9.29, 9.30, 9.31) 为 


(414 二 A7mg 一 和 f， (9.32) 
lg 一 下。 = o2. (9.33) 
因为 入 关 0, 利用 方程 (9.32) 表示 g 
名 一 了 一 4 z， (9.34) 
其 中 
年 一 >4g. (9.35) 


将 g 的 表达 式 (9.34) 代入 (9.32, 9.33), 可 得 对 偶 Lagrange 方程 


| 


(44 工 十 XD)z 
14 zl。 


4f (9.36) 
Qt (9.37) 


只 要 确定 和 z, 就 可 根据 方程 (9.34) 计算 g. 
[3, 4 证 明了 存在 唯一 的 Lagrange 乘 子 入 > 0, 和 对 偶 Lagrange 方程 (9.36, 9.37) 的 解 z, 而 且 
由 (9.34) 得 到 的 g, 是 最 小 二 乘 问题 (9.20, 9.21) 的 解 . 
对 偶 Lagrange 方程 (9.36, 9.37) 的 优点 是 ,对 入 > 0, 矩阵 44- + 和 AT 是 非 奇 异 的 . 通过 求解 非 
线性 特征 方程 
| 之 
s() := | 41I(44I+AD ”4 用 2 = a2， (9.38) 


可 得 到 Lagrange 乘 子 和 这 将 在 第 9.3.2 节 详 细 讨 论 . 
从 而 ， 我 们 给 出 算法 9.3, 它 用 来 求 约束 最 小 二 乘 问题 (9.20，9.21) 的 解 . 下 一 节 将 集中 在 用 
MATLAB 实现 实际 问题 上 . 


算法 9.3 求解 约束 最 小 二 乘 问题 (9.20,9.21) 
Solve the linear least squares problem (9.25) for z. 
计 | 47zll> > a then 
9olve the secular equation (9.38) for the unique zero 入 > 0. 
9olve the linear system (9.36) for z. 
end 
g := 一 41z 
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9.3.2 零点 探测 器 


算法 9.3 的 主要 任务 是 ， 求 特征 方程 (9.38) 的 唯一 零点 入 > 0. 图 9.5 显示 特征 函数 s(A) 的 图 
形 ， 因为 s(A) 是 非 线 性 函数 ， 所 以 需要 迭代 法 求解 特征 方程 (9.38). 由 迁 代 


sS(Az) 一 Q” 





和 AKkT+1 :一 和 KK = 一 SA) (9.39 ) 
定义 的 Newton 法 是 一 个 好 的 选择 . 然而 ， 对 于 我 们 特殊 的 方程 ， Reinsch [9] 提出 加 速 Newton 和 兴 
代 法 
入 VS(A 
和 2 Ce。 支 章 二 (9.40) 


如 果 此 友 代 从 xo = 0 开始 ， 则 得 到 和 Xx 的 严格 递增 序列 . 在 [和 [12, 第 65-66 页 ] 中 有 这 个 关键 
性 质 的 证 明 . 然而 在 浮 点 算法 中 ， 不 能 保持 此 数学 性 质 . 这 种 观察 导致 数值 终止 准则 


AKTI 扩 呈 (9.41 ) 


图 9.5 特征 函数 s( 和 ) 


S( 入 ) 





9.3.3 ”特征 勇 数值 


为 了 用 和 迭代 (9.40) 求解 特征 方程 (9.38), 我 们 需要 一 种 数值 方法 求解 特征 函数 s(A) 和 它 的 导 
数 s(A). s(A) 和 s(A) 的 值 可 表示 成 


s(A) = 47zl>， (9.42) 
SA) 一 一 2zT(z 十 和 z/)， (9.43) 

其 中 z 和 zz 满足 方程 
(441TI 十 X 站 z = 4f (9.44) 


和 
(44T 十 和 AI 门 z = 一 z. (9.45) 
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从 方程 (9.44) 和 (9.45) 可 知 ， 我 们 必须 求解 含有 和 矩阵 44- + 的 线性 系统 . 然而 ， 我 们 也 可 将 方 


程 (9.44), 看 成 是 对 应 线性 最 小 二 乘 问 题 


| 二 


的 法 方程 ， 如 果 入 > 0, 则 可 类 似 地 计算 最 小 二 乘 问题 


| 


的 解 z. 注意 ， 对 于 入 = 0, 在 方程 (9.43) 中 ， 不 需要 问 量 z 计算 s(A). 在 数值 方面 


一 main 








之 


一 mnlin 








2 


两 个 线性 最 小 二 乘 问题 (9.46, 9.47) 计算 z 和 2 ,而 不 是 解 两 个 线性 系统 (9.44, 9.45). 


9.6 Q@ 尽 分 解 (9.48) 的 第 一 步 


CD 人 
-2 1 (3 1 
] -2 ] -2 1 
1 ---2 1 | 
全 上 0 FF 
CO Cr 
C G 
C 人 
合 712 7ll 712 713 
0 722 0 722 
(CD -2 1 0 tt ra3 
1 -2 工 1 -2 1 
-人 
0 0 
C C 
C C 


Q 
马 


我 们 可 以 借助 Q 尺 分 解 





(9.46 ) 


(9.47) 


， 我 们 喜欢 从 


(9.48) 
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其 中 信和 斑 分 别 是 (2 -2)x(2n-2) 的 正 交 矩阵 和 (mn -2) xm- 2) 上 三 角 和 矩阵， 求解 两 个 最 
小 二 乘 问题 (9.46, 9.47). 在 MATLAB 中 ， 用 语句 

>> [Q，R] = gr (人 A:; sqrt(1ambda)*eye(n-2)]) ; 
计算 此 分 解 . 

然而 ， 此 命令 没有 利用 第 阵 的 特殊 结构 ， 并 且 它 的 数值 复杂 性 随 4 的 大 小 立方 地 增加 . 我们 
能 设计 一 个 算法 ， 计 算 @ 尽 分 解 (9.48), 它 的 数值 复杂 性 随 4 的 大 小 只 线性 地 增加 .我们 用 一 个 适 
当 的 基 变 换 序 列 实 现 这 个 改进 . 当 处 理 第 一 列 时 ， 图 9.6 显示 前 三 个 基 旋 转 的 应 用 .ec 是 VA 的 
简写 . 如 果 应 用 此 步 了 -2 次 ， 则 得 到 @ 尽 分解 (9.48). 算法 9.6 用 伪 代 码 显 示 同 样 的 过 程 . 通过 调 
用 BLAS 程序 rotg 和 rot, 描述 基 旋 转 的 构造 和 应 用 .、 |2, 6] 给 出 它们 的 精确 定义 .对 MATLAB 
或 一 种 普通 的 程序 设计 语言 ， 如 C 或 Fortran, 实际 的 实现 是 简单 的 . 

我 们 强调 ， 算 法 9.6 计算 的 和 矩阵 G 与 QR 分 解 (9.48) 的 矩阵 @ 是 不 同 的 ， 和 矩阵 G 反而 包含 
有 关 基 旋转 的 信息 ， 应 用 和 窍 阵 & 于 向 量 x 需要 这 些 基 旋 转 . 算法 9.4 和 9.5 给 出 积 y := Qx 和 
y :=QCIx 的 值 . 


工法 9.4 计算 乘积 y := Q@x 


y :一 X 

for 大 :一 了 一 2tolby 一 1ldo 
rot (+2; GOk5 一 @x6) 
rot (kr+1; GOK3 一 吕 14) 
rot ( 2， 2 十 有 ， GANA1， 一 @x2) 

| 


算法 9.5 计算 乘积 y 一 QIx 


到 

tor 大 :一 1to7 一 2do 
rot (kVyn+k GOpi 一 Qk2) 
rot (VE+H1 GOk3 一 Gk4) 
rot (kVkE+2， COk5, 一 GOk6) 

end 


9.3.4 MEX 文件 


因为 MATLAB 是 一 种 解释 性 语言 ， 它 不 适应 运行 算法 9.4, 9.5 和 9.6. 由 解释 器 引入 的 总 开销 
是 相当 大 的 . 用 一 种 普通 的 程序 设计 语言 ,如 C 或 Fortran, 我 们 的 程序 反而 执行 得 更 好 .MATLAB 
提供 一 种 方法 ， 分 开 执 行 编译 的 程序 ， 即 所 谓 的 MEX 文件 . 

假设 在 C 语言 中 ， 我 们 已 经 实现 算法 9.4, 9.5 和 9.6. 如 果 我 们 想 在 MATLAB 中 执行 这 些 程 
序 ， 则 对 每 一 个 程序 都 需要 一 个 接口 . 在 MATLAB 中 ， 枯 数 调 用 的 一 般 语 法 为 


[12>， “ | 一 fct(71， 72; .1; 


我 们 称 ,5 为 输出 参数 ， 称 ~ 为 输入 参数 . 如果 用 一 个 外 部 的 C 子 程序 实现 此 函数 ， 则 我 们 需要 下 
面 的 接口 : 
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#lInclude "mex.h” 
void mexFunction (int Dlhs ，mxArTray *plhs[] ， 


int nrhs ，mxArTray *#Prhs[] ) 


】 


两 个 参数 nlhs 和 nrhs 给 出 在 MATLAB 中 调用 fct 的 左边 参数 个 数 和 右边 参数 个 数 . 参数 Plhs 
是 一 个 长 度 为 nlhs 的 数组 指针 ， 为 了 返回 的 左边 的 矩阵 ， 我 们 必须 用 指针 . 同样 地 ， 参 数 prhs 是 
一 个 长 度 为 nrhs 的 数组 指针 ， 它 的 入 口 指 向 右边 的 矩阵 . 


算法 9.6 计算 QR 分 解 (9.48) 

Allocate the (mn” 一 2)-by-6 matrix 包 . 
711 :一 工 
ti :一 一 ! 
让 2 > 3 then 

72o2 :一 工 
end 
for KE := 1to 寻 一 2 do 

tmp :一 VA 入 

rotg(rkktmp,Qkl,Qka) 


rotg(rkk)t COk3 GOk4) 
证 上 <7 一 2then 


rkk+1 :一 0 

Fot(7rk 二 1 7 天 十 1 ,天 十 1， Qk3， @k4) 
end 
tmp :一 


rotg(rkhkytmp,Qk5,Gk6) 
直 大 一 光一 2 then 
t :一 一 2 
rot(rkk+lyt GOk5， GOk6) 
让 K<7m 一 3then 
7 二 2 :一 0 
7 十 2+2 :一 二 
Tot(rk 二 23 7 二 2 大 十 2) Qk5,QGk6) 
end 
end 


end 


这 个 接口 程序 应 该 执行 下 列 任务 : 


1. 检查 是 否 提供 输入 和 输出 参数 的 正确 数目 . 
2. 确定 输入 矩阵 的 维 数 符合 它们 的 形式 说 明 . 





第 九 章 光滑 滤 子 


3. 为 输出 矩阵 分 配 存储 空间 . 

4. 调用 另 一 子 程序 ， 执 行 实际 的 计算 ， 
文件 mex.b 包含 MEX 文件 声明 和 原型 . 有 一 些 辅助 的 子 程序 ， 可 由 接口 程序 调用 
者 可 参考 MATLAB 的 外 部 接口 指南 . 


站 法 9.7 算法 9.6 的 MEX 文件 


#incluaade "meX.pb 


#define max(A，B) (〈(A) > 〈(B) ?了 (A) : 〈B) ) 
#qdefine min(A，B) (〈((&A) < 〈B) ?7 (A) : 〈(B)) 


#define DT Prhs [90] 
#define sigma Prhs[i] 


#define Qbar Plhs [O] 
#define R Prhs [1] 


void mexFunction 《int nlhs ，mxArray xplhs[] ， 
int nrhs ，mxArray *Prhs[]) 


{ int Size，Dnz; 


if (nrhs != 2) 二 
meXErrMSsgTxt 〈("SPqT reqtuires two input arguments.") ; 
} else if (nlhs != 2) 雪 


mexEIIMSsgTxt 〈"SsPqr requires two_ output arguments .") ; 


if ((mxGetM (n) != 1) 11 (mxGetN (n) != 1) | 
(*mxGetPr (nj) < 3.0)) 攻 


meXxEIIMSgTxt (mn must be a scalar gELeater Or equal 3.") ; 


if ((mxGetM (Sigma) != 1) |1 (mxGetN (sigma) != 1)) 苹 


mexErrMsEgTxt ("sigma must be a scalar."); 


size = 《int) *mxGetPr (ny) ; 


Qbar = mxCreatDoubleMatrix (size-2，6，mxREAL) ; 


if 《size == 3) {fpnz = 1;} else {fnnz = 3+rsjize - 9;} 


R = mxCreateSparse (size-2，Size-2，DnnZz，ImXxREAL) ; 
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QRR 〈《size，*mxGetPr (sigma) ，mxGetPr (Qbar)，R) ; 


工法 9.8 在 CC 中 计算 @RR 分 解 (9.48) 
void QR 〈int 莘 ，qouble sigma，double *Qbar ，mXATrLaY *R) 
{ int ，j，Kk，pnnz，Dnh2，n3，n4，*rir， 关 jc; 


double co，*#pPI，si， 七 ，tmp; 


nnZ = mxGetNzmax (R); n2 = D-2; pn3 = D-3; nd4 = D-4; 

ir = mxGetIr (R); jc = mxGetJc (R); Pr = mxGetPr (R) ; 

/*k diagonal of R */ 

ir [0] =0; for (ii= 1; ii< n2; i++) {ir [3*i- 1] = 守 ; 
/* fjirst UPPer off-diagonal of R */ 

for (Ti = 0; ii < n3; i++) {fir [3*i+ 1] = 了 守 ;)]} 

/* Second UpPPer off-diagonal of R */ 
for (zi = 0;) 1< n4; i++) {ir [3*i + 3] 


计 计 
/*Columns of R */ 

jc [0] =0j jc [Li = 1; 

for (j=2; j < n2; j++) {jc [j] = 3*j -3?1} 


jc [Ln2j = mnnz; 


#define r(i，j) pr [k= jc [jj, kr+i=- ir [xjj] 
r (0,，0) = 1.0; 卫 = -2.0; if (>3) fr (1，1) = 1.0;} 
for (人 j] = 0; j <“ nh2; j++) 区 


tmP = SLSgma; 
rotg (&r (j，j) ，K&tmp，&Qbar [jj]，KQbar [n2 + j]) ; 
rotg (&r (j，j)，&t，&Qbar [2*n2 + j]，&Qbar [3*rn2 + j]) ; 
if (j < n3) { 
rr〈j，j+1l1) = 0.0; 
rot (&T (j，j+1l)，&Tr (j+1，j+t) ， 
Qbar [2*n2 + j]，Qbar [3*n2 + j]) ; 
小 
tmp = 1.0); 
rotg (&r 〈j，j) ，&tmp，&Qbar [4*n2 + jj]，&Qbar [5*n2 + j); 
if (j < n3) 
七 = -2.0; 
rot (&Tr (j，j+l)，&t，Qbar [4*n2 + jj]，Qbar [S*n2 + j]) ; 
if (j <“ Dn4) 荆 
T (j，j+2) = 0.0; 工 (j+2，Jj+2) = 1.0; 
rot (&r 〈(j，j+2) ，Kg&r (j+2，j+2) ， 
Qbar [4*n2 + j，Qbar [5*n2 + j]); 
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算法 9.9 最 小 二 乘 光滑 滤 子 
function g = 1sq (f，dqelta) 


n = Length () ; 
alpha = sqrt (nn) * qdqelLta; 
e = ones (D，1); 


A = spdiags ([e -2*+*e el]，0:2，n-2，Dn) ; 


Jambda = 0 ; 
While 1 工 ， 
[Qbar ，R] = spqr (nn，sqrt (lambda) ) ; 
zZ = QTx (Qbar ，[f; zeros (n-2，1)]) ; 
RNANAzZ (1:n-2) ; 


乙 


F = norm (A *# Z) ”2; 
if 人 (F <= alpha`2) ，break ; end ; 


if (lambda > 0) ， 
zp = QTx (Qbar ，[zeros(n，i); -z/sqrt(Lambda)]) ; 
zZp=RANzp (1L:n-2); 
FP=-2*Zz'*# (z+1lambda * Zp); 


elSe 
了 = 三 一 全 本 和 


endG ; 


Lambdaocold = Lambda; 
1ambda = lambda -~- 2 yy (F / FP) yx (sqrt (F) / alpha 一 1 工 ) ; 
if (人 (lambda <= Jambdaoco1ld) ，break ; end ; 
end ; 
区 -三 :二 
作为 一 个 例子 ， 我 们 给 出 C 语言 的 算法 9.7, 它 作 为 算法 9.6 的 @ 已 分 解 的 一 个 接口 . 算法 9.8 是 
由 算法 9.6 的 伪 代 码 转 换 成 C 语言 得 到 . 我 们 提醒 读者 ， 所 有 的 机 器 可 读 形 式 的 程序 都 是 可 行 的 
(参见 前 言 ). 在 MATLAB 中 ， 我 们 能 执行 语句 
>> [Qbar，R] = spqr (mn，sqrt(l1ambdqa) ) ; 
计算 稀 玻 的 CR 分 解 (9.48). 
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以 同样 的 方法 , 用 MEX 文件 实现 算法 9.4 和 9.5. 在 MATLAB 中 , 分 别 用 语句 y = Qx (Qbar， 
xj) 和 y 一 QTx (Qbar, x) 调用 . 


9.3.5 结论 


现在 我 们 提出 算法 9.9 实现 最 小 二 乘 滤 子 ， 方程 (9.19) 的 矩阵 4 构成 一 个 稀疏 矩阵 . 

在 此 方法 中 ， 只 存储 4 的 非 零 元 素 . 用 函数 spdiags 实现 它 ， 此 函数 通过 对 角 线 性 质 定义 了 
一 个 稀疏 矩阵 . 

计算 % 忆 分 解 (9.48) 是 通过 调用 spqr, 它 是 一 个 MEX 文件 ， 用 来 实现 算法 9.6. 类 似 地 ， 函 
数 QTx 的 调用 是 执行 算法 9.5 对 应 的 MEX 文件 . 

如 果 算 法 9.9 应 用 到 图 9.2 所 示 的 测试 数据 ， 则 由 图 9.7 可 得 光滑 曲线 . 我 们 令 6 = 0.1, 它 是 
晒 数 ftz) 中 噪声 的 标准 差 . 


图 9.7 用 最 小 二 乘 姜 子 光 滑 图 9.2 的 数据 
最 小 一 溢 滤 了 (delta=0.1) 





0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 
0.39s 的 CPU 叶 问 


表 9.1 对 应 于 不 同 数据 的 CPU 时 间 
亿 Savitzky-Golay 滤 子 ”最 小 二 乘 滤 子 
103 “0.006 sec 0.39 sec 
10”″” 0.036 sec 4.55 sec 
10” 0.344 sec 77.93 sec 


从 视 党 的 角度 ， 最 小 二 乘 滤 子 返 回 一 个 比 Savitzky-Golay 滤 子 更 光滑 的 结果 ， Savitzky-Golay 
滤 子 的 输出 由 图 9.4 给 出 . 当 点 数 m 增加 时 ， 结 果 甚 至 更 好 . 另 一 方面 ， 执 行 算法 9.9 所 需 的 CPU 
时 间 ， 本 质 上 比 执行 算法 9.2 Savitzky-Golay 滤 子 的 时 间 更 多 . 对 许多 不 同 的 数据 mw, 将 这 些 CPU 
时 间 总 结 成 表 9.1. 

总 之 ， 最 小 二 乘 滤 子 能 产生 一 个 比 Savitzky-Golay 滤 子 更 光滑 的 曲线 g(z). 然而 ,为 此 需要 编 
写 更 复杂 的 算法 和 人 花费 更 多 的 CPU 时 间 .， 最 小 二 乘 滤 子 的 优点 是 只 有 一 个 参数 ， 噪 声 的 标准 差 6 
需要 估计 . 这 个 量 与 实际 数据 的 关系 ， 比 Savitzky-Golay 滤 子 中 的 参数 nr,mrpR 和 M 更 直接 . 
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在 空中 交通 远程 控制 中 心 ， 多 雷达 监视 系统 接收 到 来 自 全 球 各 个 雷达 的 不 同 信息 . 来 自 每 个 
雷达 的 信息 除了 其 它 信 息 之 外 ， 还 包含 有 该 雷达 看 到 的 飞机 的 坐标 z,y 和 z 指 相对 于 该 雷达 的 直 
角 坐 标 系 而 言 ). 两 个 雷达 忆 , Ra 的 二 维 图 形 的 例子 画 在 图 10.1 中 .可 以 看 到 ， 飞 机 是 由 雷达 羽 : 
的 坐标 [zi,yP:] 和 雷达 己 > 的 坐标 jzPa,yRaz] 来 描述 的 ， 对 多 雷达 监视 系统 而 言 ， 必 须 以 “绝对 ” 
坐标 系 (以 玉 为 原点 ) 来 工作 . 所 有 雷达 的 有 关 飞 机 A 的 数据 都 要 变换 到 这 个 坐标 系 . 这 意味 看 
在 这 个 坐标 系 中 ， 飞 机 A 可 以 用 几 种 观点 来 描述 ， 它 们 分 别 有 自 己 相 应 的 标准 . 《例如 ， 飞 机 可 
以 用 它 最 可 能 在 的 位 置 点 来 描述 ). 在 以 五 为 原点 的 坐标 系 中 ， 远 程控 制 系统 可 以 从 监视 器 的 视 筑 
信息 追踪 飞机 的 相关 位 置 ， 利用 选 定 的 窗口 ， 多 雷达 监视 系统 的 控制 程序 可 以 监视 飞机 活动 的 整 
个 区 域 . 为 了 简单 ， 让 至 为 原点 的 绝对 坐标 系 和 雷达 尺 : 的 坐标 系 相 重 合 ， 对 多 雷达 监视 系统 而 
言 ， 必 须 求解 以 下 基本 问题 : 


图 10.1 飞机 在 两 个 雷达 系统 中 





让 雷达 尺 ; 和 忍 2 位 于 地 球 表 面 的 六 和 肠 . 飞 机 A 在 雷达 斑 ; 的 当地 直角 坐标 系 Pi 中 被 “看 
到 ”的 坐标 是 [zl,yz,z] 三 4(Pi), 必须 求 出 它 在 雷达 已。 的 直角 坐标 系 也 > 中 的 坐标 [zz,yz, zz] 三 
4(Pz)( 见 图 10.2). 地 球 表 面 的 点 已 , 忆 的 位 置 由 地 理 坐 标 [ 户 ,5] 和 [lz] 给 定 ， 万 , 户 是 地 理 纬 
度 ，11,12 是 地 理 经 度 . 地 理 坐 标 G = [ 户 ! 常用 度 ， 分 和 秒表 示 (-90" < < 90?,-180?” 《7 < 180?)， 
让 直角 坐标 系统 (已 ; +zl 十 四; 二 21) 三 Pi,( 忆 ;+za, 十 ya, 十 z2) 三 P2 的 原点 分 别 在 已 , 严 ( 参 看 图 
10.5).zlyi 平面 是 在 椭 球 体 的 点 瑟 的 切 平 面 ， zl 轴 位 于 纬度 户 的 平面 内 ， 妨 轴 位 于 子午 线 六 
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的 平面 内 . 2 轴 正 向 指向 地 心 . za 和 oa 轴 的 正 向 分 别 指向 经 度 和 纬度 增加 的 方向 .坐标 系 卫 > 
各 轴 的 方向 相同 . 


图 10.2 飞机 在 两 个 雷达 系统 中 


> 仿 二 . 


-A(P 己 ) 三 jxXz,yz,Z2] 
AAA Pi ) 三 [xi ,yt+, zi] _ 






R 及 


10.2 将 角度 化 成 弧度 


地 理 坐 标 | 访 中 常用 度 分 秒 以 及 它们 的 小 数 表 示 . 为 了 以 后 的 计算 ,必须 将 角度 六 ! 化 为 弧度 . 
由 于 我 们 会 多 次 用 到 它们 ， 所 以 设计 了 一 个 MATLAB 函数 deg2rad(a?, 人 ,上门 ). 这 些 函 数 的 输入 变 
量 a 是 含 1 至 4 个 分 量 的 矢量 (参见 算法 10.1 表 10.1 和 例 1). 


算法 10.1 阵 数 deg2rad 
function rad = deg2rad(alLpha) 


% Conversion: alpha deg. ，min.，sec. -> radians 
办 
d = Jength(alphay) ; 
ifd > 4 
dispP(alpha) ，error(:invalid input 1List in function deg2Iad)?) 


ena 

alLpha = [alpbha(:); zeros(4-d,1)]; 

alpha(3) = alpha(3) + alLlpha(4)7V100; 

rad = Pi/180*+((alpha(3)/V60 + alpha(2))/60 + alpha(1)) ; 


表 10.1 角度 a 的 组 成 










输入 角 a 
整数 .十 分 数 “ 
整数 ”整数 . 士 分数” 
整数 ”整数 ”整数 . 十 分 数 “ 
整数 ”整数 ”整数 ”整数 (十 分 数 ) 


例 II 
我 们 验证 一 下 如 表 10.1 所 示 的 输入 角 a 的 所 有 四 种 可 能 性 . 对 给 定 的 输入 矢量 ， 总 是 得 到 相 
辐 的 弧度 值 . 





132 9. 8artort anrd 7 Daler 


>> format Long 


>> a = [16.641038888888888j ; % 1 component 

>> b = [16 38.462333333333333]; ” % 2 components 
>> cC = [16 38 27.74] ; % 3 components 
>> QQ = [16 38 27 74] ; % 4 components 


>> radians = [fdeg2rad(a) deg2rad(b) deg2rad(c) qeg2rad(d)] 
radians = 


0.29044091956353 0.29044091956353 0.29044091956353 0290440919586353 


10.3 地理 坐标 化 为 地 心 坐标 


在 本 节 引 入 一 个 函数 来 把 尸 点 的 地 理 坐 标 [/,1] 变换 成 地 心 直 角 坐标 : (Ci;+zc, 二 yc, 十 zc) 三 C 〇 ， 
它 的 原点 C 在 地 球 中心 . xz 轴 沿 地 球 的 极 轴 , 正 向 指向 北极 .zc 轴 通 过 0 度 和 180 度 的 子 千 线 ， 
正 向 指向 0 度 子 午 线 . 人 轴 垂 直 于 ze 和 zc 轴 ， 正 方向 指向 90 度 的 子午 线 ( 见 图 10.5). 为 了 使 地 
理 坐 标 [ji] 变换 到 地 心 坐 标 [ze, zc,ye]( 按 照 图 10.3 ), 我 们 编写 了 一 个 MATLAB 困 数 gg2gc( 小. 
地 球 是 一 个 不 规则 球体 ， 为 了 计算 ， 我 们 用 园 椭 球体 对 它 作 近似 描述 . 两 个 球体 的 旋转 轴 相 同 . 
椭 球 体 的 横 截 面 是 (Krasovsky) 椭 园 ， 长 半 轴 是 4 = 6378.245[krm], 短 半 轴 是 妃 = 6356.863[Krmj. 为 
了 写 出 变换 方程 ， 使 用 椭 园 的 参数 描述 是 很 方便 的 (参见 图 10.4): 


图 10.3 从 地 理 坐 标 转换 到 地 心 坐 标 





重要 的 是 记 住 ， 地 理 坐 标 系 并 非 是 球 心 坐标 系 ， 地 理 坐 标的 纬度 是 通过 测量 物体 (如 太阳 ， 月 
亮 ， 已 知 星 体 ) 在 天 空 与 地 平 线 的 夹 角 来 确定 ， 也 即 地 球 表面 的 切 平 面 与 该 物体 的 夹 角 . 描述 椭 球 
的 常用 参数 是 
(2) 一 全 cos (p)， zep) =sin (p)， 


为 了 把 角度 /与 z,z 相 联系 ， 先 计算 在 [z,z] 点 的 法 巾 天 量 允 


JS E JR 
2 妃 cos (P) 一 4sin (%) 
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图 10.4 用 法 向 矢量 的 斜率 描述 椭 园 





所 以 有 
全 
tan(j) 三 二 万 tan( 人 )， 
我 们 要 的 是 sin(P) 和 cos(P). 从 tan(p) = 号 tan(jf) 得 到 : 


cos (%) 一 本 sin (O) tan(P) cos (O) 
下 面 给 出 对 应 的 MATLAB 函数 作为 算法 10.2. 


算法 10.2 函数 gg2gc 
function LP] = gg2gc(E，1) 
4 transformation geographic， -> geocentric. coordinates 
ftf，1L in radians 
从 
A = 6378.245; B = 6356.863; Ah KrasoVvSsky ellipse 
tanfi = B/A*tamn(C) ; 
cosfti = 1/sqrt(1L + tanfi”~2) ; 
Sinfiz = 七 anfi*rcosTfi ; 


P = [Ar*cosfi*cos(1); Ar*rcosfirsin(1); Brsinfi ]; 


例 2 
通过 计算 Brno 的 球 心 坐标 可 以 核对 两 个 函数 . 
>> ff = deg2rad([49 3 37 2]) ; 
>> 1 = deg2rad([16 38 27 74] ) ; 
>> BRNO = Egg2gcCf , 工 ) 
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图 10.5 APp(C) 一 Ap(P1) 变换 ， C,P; 和 P， 的 定义 ，“ 基 本 变换 





BRNO = 


t+.Oe+003 六 

4.01206298678276 
1.19917767600837 
4.79503887137397 


10.4 变换 


现在 进行 坐标 系 Pi 到 坐标 系 Pz 的 变换 . 要 更 详细 地 了 解 坐 标 变换 ， 请 看 文献 [1,2]. 这 个 复 
杂 的 变换 包含 四 个 局 部 变换 ， 具 体 来 说 ， 就 是 一 个 平移 和 三 个 转动 . 由 于 坐标 系 P1 在 每 次 变换 中 
都 发 生 改 变 ， 我 们 用 以 下 足 标 来 区 分 它们 : 


PI，1i=0…,4， 这 里 PI=Pi， Pa=P2. 


1. 平移 变换 
平移 量 的 值 [Az,AyAzl = 己 (Pi) -已 (Pi) 三 Ap 是 点 瑟 在 第 一 个 坐标 系 的 坐标 ， 我 们 把 
它 标 为 且 (Pi). 在 坐标 系 C 中 ， Ap 是 已 知 的 ， ApP(C) = 已 (C) - 已 (C). 必须 把 SP(C) 变换 成 
AP(P1). 这 次 变换 如 图 10.5 所 示 ， 可 按 如 下 步骤 来 计算 ， 
1. 把 坐标 系 P1 的 原点 如 ' 放 在 赤道 与 格林 威 治 子午 线 的 交点 上 ， 从 图 10.5 看 到 ， 这 个 变换 是 
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十 分 简单 的 . 
Ar A7y Dr 二 大 - 0 1 0 
Ay/ 一 |  Az =Mx| 己 , 一 局 ， 这 里 MW=| 0 0 1 
人 Az 一 A 人 rz 三 一 石 : 一 1 0 0 
PY C 
2. 为 了 移动 Pi 到 Pi1, 我 们 绕 yY” 轴 旋转 角度 1. 这 个 变换 用 旋转 矩阵 丸 ; 来 描述 : 
Arz Arz cos (fi) 0 sinf(i) 
Ay 一 RiIx| Ay ， 这 里 严 : = 0 1 0 
六 zz P， Az P， sin (ii) 0 cos(i) 
3. 为 了 移动 Pi 到 产 , 我 们 绕 < 轴 旋 转角 度 万. 这 个 变换 用 旋转 矩阵 已 > 来 描述 : 
Ar AZ 1 0 0 
Ay/ 一 开 > X Ay 这 里 瑟 2> 三 0O COS (万 ) sin (万 ) 
Az 本 Az pi; 0 一 sin( 卢 ) cos( 万 ) 


4. 现在 坐标 系 Pi 处 在 一 个 任意 的 位 置 . 总 结 步骤 1-4, 平移 矢量 Ap(Pi) 可 以 表述 为 


Ar 大 = 站 
Ay/ 一 天 xx 瓦 ;| XAdf x 局 一 下 7 
人 z P， 已: 一 六 : 必 
使 用 关系 式 
录 Ar 
4(Pi) 三 | y =4Pai) 一 | Ay ， 
从 之 
本 了 Pi 
我 们 从 飞机 先前 的 坐标 4(Pi) 推出 了 新 的 坐标 4( 了 Pi). 
2. 第 一 次 旋转 
将 坐标 系 Pi 绕 z 轴 旋 转角 度 户 以 使 y 轴 平 行 于 地 球 的 极 轴 zc. 然后 使 用 下 式 
外 艺 1 0 0 
4(P32) 三 1 三 及 3 X 1 ， 这 里 瑟 3 == 天 了 = 一 0 cos (万 ) 一 sin (万 ) 
z / 。a 站 辣 0 sin( 户 ) cos (万 ) 
可 从 飞机 原来 的 坐标 4(Pi) 求 出 新 坐标 4(P3). 
3. 第 二 次 旋转 
将 坐标 系 Pz 绕 y 轴 旋 转角 度 Al = 2 -0 以 使 Pi 和 Pa 的 两 个 z 轴 重 合 . 然后 使 用 下 式 
7 人 cos(Al) 0 sin(A1) 
4(Pi) 三 | y 一 Rax| 7 这 里 尺 4 三 0 1 0 


之 
Pi Pi 


可 从 飞机 原来 的 坐标 4(Pi1) 求 出 新 坐标 4(P1i) 


一 sin(AI) 0 cos(AI) 
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4. 第 三 次 旋转 
将 坐标 系 Pi 绕 zx 轴 旋 转角 度 户 以 使 它 和 坐标 系 P> 重合 . 然后 使 用 下 式 
洲 人 1 0 0 
4(P2z) 三 | Y 一 Ps5x1| y ， 这 里 Rs 三 | 0 cos( 户 ) sin( 万 ) 
2z / 。 0 一 sin( 户 ) cos( 户 ) 


可 从 飞机 先前 的 坐标 4(P3) 求 出 最 后 的 坐标 4(P2) = 4(P 旬 ). 


10.5 ”最 终 的 算法 
以 上 步骤 可 以 合并 起 来 . 使 用 和 矩阵 尽 : - Rs, 得 到 全 部 的 变换 为 


人 上 
4(P2) 三 | y 一 R5xRxRIxja4(Pi) 一 RaxRaixaAx 忆 ， 一 已 ， 
之 P。 二 > 机 下 > Cs 
这 个 算法 可 以 作为 MATLAB 函数 transf 的 基础 (参见 算法 10.3). 
4(Pz) = transf( 户 ,54(P1), 户 ,12). 
10.6 ”实际 例子 
我 们 的 问题 已 经 完全 解决 ， 可 以 用 实际 例子 来 检验 它 . 
>> Tormat ong 
>> fl = deg2rad([49 45 18] ) ; 办 Praha 
>> 11 = deg2rad([14 7 58] ) ; 兴 Position 
>> f2 = deg2rad([49 3 37 2] ) ; A Brno 
>> 12 = deg2rad([L16 38 27 74] ) ; % Position 
>> AlPpraha = [200; 140; -5.790] ; % II. Aseen from Praha 
>> A2Praha = [157; 397; -9.870] ; Ah 2. ASseen from Praha 
>> Atbrno = transf(f1，11，Alpraha，f2，12)Y 1， Aseen from Brno 
Atbrno = 
1.0Oe+O2 水 


0.23632088742730 

2.13625791235094 

-0.06831714145899 
>> alpPraha = transf(f2，12，Albrno， 了 工 ) 忆 
alpraha = 

1.0e+O2 光 

2.00000000000000 

1.40000000000000 


InV . transformatioDn 
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-0.05790000000000 
>> A2brno = transf(t1，11，A2praha，f2，12)4 2. A、seen from Brno 
A2brno = 
1.0e+0O2 半 
-0.10857206384904 
4.71937837075423 
-0.06683743260798 
>> a2praha = transf(f2，12，A2brno，fl，11)7 inv。 transformation 
a2PpIaha = 
1.Oe+O2 水 
1.87000000000000 
3.97000000000000 
-0.09870000000000 


站 法 10.3 函数 trans 工 
function [A2]j = transf(fl1，11+，AL，f2，12) 


hk the airplane Tadar Position recalculation 

hh，1 = geographic radar Positions in radians 

% AL = [xi yi z](P1) = position of airplane seen by radar at P1i 
放 


0 1 0 
AM = almost permutations 
=- 0 0 了 3 %_ matrix 
为 
R1= [cos(Ll) 0 sin(1L) 
0 1 0 Ah R1L1 = DisPLlacement 
-Sin(1L1L) 0 cos (11t)] ; 友 1。Trotation matIrixX 
类 
R2=[ 1 O 0 
0 cos(fl) sin(Cfl) % R2 = Displacement 
0 -SinkCft) cos(fl>]; 世 2. rotation mat 工 ixX 
作 
Plc = gg2gc(Cfl，11) ; 久 1，Iadar geocentric 
P2c = gg2gct(4E2，12) ; 汉 2. radarT coordinates 
从 
DPc = P2c - Pic; % DPCc -~ radar!s displacement 
人 (1. radar pogs. [f=0，IL=0]) 
T = R2*+rRILI+*M*+DPc ; % - Iadar72s displacement 
人 (1 Tadar pos. [fl，1 菇 》) 


a= AL -了 了; %h A、pos. after translation 
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为 

DLI = 12 一 |; 

加 

R4 = [ cos(D1) O 
O 1 

-Sin(D1) 0 

RS5 = [ 1 0 
0 cos(f2) 
0 -Sin(Cf2) 

久 

A2 = RS*R4*+*R2 *a; 


y end of function 


感谢 


sin(D1) 
O 
cos(D1)] ; 


0 
sina(f2) 
cos (f2)] ; 


作 
包 
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Jongitude diffterence 


R4 = Totation matrix ， 


rot . around y by 上 2- 


R5 = ITotationDn matITix， 


Tot .around X by 革 2 


A2 = [xj yj Z](P2) 
Position of airpPlLane 


seen by Tadar at P2 


作者 感谢 J.Hiebicek 和 W.Gander 对 改进 本 章 所 提 的 建议 和 帮助 ). 
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映射 是 数学 方法 , 它 常 被 用 于 求解 在 不 规则 形状 体内 的 流体 问题 . 自从 出 现 超 级 计算 机 以 来 ， 
这 种 技术 在 生成 数值 网 格 方面 已 经 变 得 非常 重要 []. 在 流体 力学 的 入 门 课 程 中 ， 学 生 学 习 了 如 何 
计算 不 可 压缩 流体 绕 “jJoukowski 机 村 ”的 环流 , 它 表 示 最 简单 的 飞机 机 桂 形 状 . 绕 机 辟 流 体 的 物理 
平面 位 于 复 平 面 p = 业 +i 内 ， 其 中 i = V--1. Joukowski 变换 的 优点 是 给 出 了 一 个 从 z = z+i 过 平 
面 到 ?平面 的 保 形 映射 ， 它 把 绕 机 票 流 体 的 计算 转变 为 绕 圆柱 流体 的 非常 简单 的 计算 Joukowski 
变换 的 映射 范 数 p = 帮 z) = 妇 z) 十 i(z) 的 一 个 特殊 形式 是 


] Q2 
2 一 了 (z 十 由 (11.1) 


在 这 一 章 我 们 将 展示 如 何 借助 符号 计算 语言 和 计算 机 代数 处 理 在 应 用 映射 方法 时 所 需 的 数学 变 
换 . 为 说 明 有 关 的 基本 步骤 ， 与 其 选择 一 个 大 的 物理 问题 ， 那 可 能 超出 本 书 的 范围 ， 倒 不 如 选择 一 
个 保 形 映射 的 非常 简单 的 应 用 . 


11.2 ”问题 概要 


将 rz 和 y 表 成 某 参数 上 的 函数 ， 从 而 使 得 z( = z(b) 十 这 提 : 由 此 得 到 P(z(b) = 用人) 成 
立 . 将 z() 的 表达 式 代 入 P(z) = jz 人 的 ) 得 到 


PGO = DG)+ivG =p(z(G) (11.2) 


在 等 号 两 边关 于 上 求 导 ， 得 
己 ( 王 (z())2t)， (11.3) 


和 
忆 ( 一 P(z( 昌 ) 人 (的 ) 十 台 (z( 区 ) 冯 区 (11.4) 


其 中 点 "和 分 号 ′ 分 别 表示 对 上 和 z 求 导 . 
至 此 所 列 出 的 关系 式 对 处 理 下 面 的 问题 是 必要 的 . 我 们 假设 映射 函数 是 [2?] 中 二 阶 常 微分 方 


程 
z2p/ 十 zp' 十 (az 十 Bz 十 YY)P 三 0 (11.5) 


始 条 件 (0) = 2 和 P(0O) = po 的 解 . 
0 到 区 域 Pt 上 = UV(+iV 人 GO 上 的 问题 需要 解 二 阶 常 微分 复方 程 (11.50)， 这 可 以 由 
下 列 过 程 解决 ， 对 所 考虑 的 问题 取 z(b) 是 半径 为 ” 的 圆 ， 即 z(b) 一 re 因此 z(bb) 关于 + 
以 轻易 地 得 到 .将 z(, zb 和 汉 1) 分 别 代 入 方程 (11.2) --(11.5)， 便 可 以 在 这 些 方程 中 消去 z 人 已 
对 守 的 导数 . 于 是 在 (11.3) 和 (11.4) 中 ， 2 和 2” 可 以 用 户 ( 和 户 (b) 表示 . 最 后 利用 这 些 表达 式 
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和 (11.2), 二 阶 常 微 分 方程 变 成 仅仅 是 关于 已 ()，P(b) 和 P(b) 的 方程 . 考虑 到 (11.2), 我 们 可 按 实 
部 和 虚 部 化 简 这 个 方程 .这样 产 生 了 两 个 艳 和 的 二 阶 微分 方程 组 . 通过 标准 的 数值 积分 可 求 得 解 
Zi 和 妆 ( 蚊 . 

对 下 面 两 组 初始 条 件 和 参数 ” 可 以 求 得 相应 的 解 : 


信 | 人 一 0.6 
IT(0) 一 一 0.563 UV(0) 一 一 0.944 
tt = 0 DG = 0 
V(0) = 0 V(0) = 0 

Vv 人 ti = 0.869 v( 争 = 0.658 


在 这 两 个 运算 过 程 中 ， 我 们 在 区 间 (0 《上 < 6r) 上 积分 而且， 使 用 了 参数 值 c = 1 0 = 0.5 和 
7= 一 4/9. 下 面 这 后 三 个 参数 值 将 被 记 为 ,上 和 c. 


11.3 MAPLE 解 


上 面 的 解 题 步骤 并 不 难 执行 . 但 是 因为 存在 一 些 需要 灵活 处 理 的 问题 ， 手 工 推导 公式 和 用 高 
级 语言 编程 都 容易 出 错 ， 并 且 花 费时 间 . 下 面 将 证 实 象 MAPLE 这 样 的 高 级 数学 计算 工具 ， 和 赁 借 它 
大 量 的 符号 ， 数 字 和 图 像 功能 能 使 求解 的 全 过 程 或 至 少 部 分 过 程 更 严密 和 精巧 . 

处 理 例题 的 第 一 个 步骤 是 分 别 导 出 关于 Z(b 和 YY 的 的 两 个 二 阶 常 微分 方程 . 我 们 从 定义 复 
平面 书 = 辽 十 这 上 变形 的 圆 Pb = P(z(b) 的 参数 表达 式 开 始 . 


> PCz(t))=P(t) : 
现在 我 们 要 表示 未 知 函 数 p(z 份 ) 关于 上 上 的 一 阶 导数 . 为 此 我 们 应 用 MAPLE 的 求 导 算 子 diff 并 求 
关于 z 的 一 阶 导数 ， 即 (9 = 厂 (p)(z( 蚊 ),， 记 为 PPrime. 


> pprime:=solve(diff(",t),D(P)(z(t))) ; 


类 似 地 ， 通 过 对 p 两 次 运用 算 子 , 我 们 得 到 一 个 求解 允 () 的 表达 式 ， 我 们 将 它 记 为 P2Prime. 
>  P2prime:=solve(diff("",,t),D(DCP))(zZCt)7) ; 


DO)(zGb)( 蔓 zz) -(PG) 

2D2pr7z77me :一 -| 2 

因为 按 定 义 D(p)(z 伯 ) 等 于 2 人 划 , 我 们 可 以 将 这 个 替换 用 在 P2prime 的 表达 式 中 . 
> DCP)(z(t)) :=PPrime; 


DUp)Gz(b) := 六 凶 


2z0 
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P2Prime 的 新 形式 是 
>  P2Prime ; 
(各 P()( 训 zz0b) 
总 (6 
(和 xb)2 
现在 可 以 代入 复方 程 (11.5), 方程 将 被 命名 为 ode. 


>  ode:=zZ(t) ”2*p2PTime+Z(t)*PpPPTrime+(a*Z( 七 )~2+b*Z (七 )+C) 半 PC 七 ) ; 


( 章 P(b)( .25z(t)) 2 
0 瑟 将 一 ( 药 PO)) 0( 训 pg 
( 吉 z(t)2 训 z(t) 
至 此 ， 除 了 注意 到 zf 人 归 是 个 圆 的 事实 ， 处 理 问题 的 过 程 已 被 严格 地 公式 化 . 下 一 步 这 个 信息 将 被 


>  Z(t) :=Tr#keXxp(I*#t) : 


ode :一 一 + (az( 划 ”十 z( 引 十 cJ)P() (11.6) 


这 样 我 们 可 以 确定 Pd) 为 一 个 仅 依赖 圭 的 函数 . 


> PCt) :=U(t)+I*V(t) : 


我 们 的 复方 程 ode 将 被 分 成 两 个 耘 和 的 有 相同 阶 数 的 方程 re 和 训 . 所 有 实 分 量 将 被 在 于 re. 同 
样 所 有 虚 分 量 组 成 im， 在 每 部 分 中 我 们 都 用 圆 的 三 角 郴 数 表 达 式 代 夫 它 的 复 指 数 函 数 . 这 将 由 
MAPLE 中 的 变量 trig 和 组 合 命令 conbine(...,trig) 实现 . 执行 这 个 分 解 的 命令 具体 为 


> Te:=combine(evalc(Re(ode)) ,trig) ; 


-( 尖 U(b) 二 U 人 tar2cos(21 十 U 人 (brcos 人 (tt 十 Ubbc 
-- 72Vvbasin(2t 一 rV(tbsinft) 


re :一 


> im:=comnmbine(evalc(CImCode) ) ,trIg) ; 


z772 :一 ， VOt)+r2Ubasin(2 胃 +rU( 人 tpsin(t) 十 Var2cos(21) 
十 V(prcos(t 十 Vt)ec 
由 上 面 几 行 可 见 这 些 项 还 没有 很 好 地 组 合 . 因此 我 们 将 Z 雪 和 YY 的 的 系数 分 别 集 中 于 re 和 io. 
这 样 产 生 了 


> ITre:=collect(colliect(re,U(t)) ,VCt))=O: 
> im:=collect(collect(im,U(t)) ,VCt) )=O: 


为 了 积分 我 们 将 组 合 关 于 书信 的 实 部 和 虚 部 的 微分 方程 ， 形 成 方程 组 odes. 


> oOodqQes := Te,1Pm， 
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图 11.1 





第 “组 人 参数 下 的 v( 办 , 有 曲线 ， 


第 一 组 参数 下 的 v(b, (为 曲 线 ，-------- 





odes :一 

(-brsin(t 一 ar sin(2b)V 人 二 (ar2cos(2t+bprcos(t 训 十 c)U 人 一 人 U 人 tb)) 一 0， 
D2? 
D 刀 

对 这 样 一 组 微分 方程 求解 其 数值 解 是 合理 的 且 会 省 时 间 ， 因 为 MAPLE 运算 的 模式 在 编译 程 
序 过 程 中 是 交互 的 ， 而 不 是 进行 数值 咀嚼 而且， 现在 MAPLE 提供 的 只 是 45 阶 Runge-Kutta- 
Fehlberg 算法 . 因为 MAPLE 允许 输出 Fortran 和 C 的 符号 ， 所 以 用 它 导 出 的 方程 ， 可 以 自动 地 在 
FEortran 或 C 环境 中 进一步 应 用 . 

MAPLE 能 够 借助 它 的 45 阶 Runge-Kutta-Fehlberg 算法 ， 为 我 们 的 问题 提供 一 个 数值 解 . 在 
运用 这 个 算法 之 前 ， 我 们 按 我 们 的 第 一 组 参数 集 给 定 初 值 


> init:=V(0)=0,U(0O)=-.563,DCV) (0)=.869,D(CU) (0)= 0: 


(ar2cos(21) 二 brcos( 引 十 cljV 人 iTT(ar2 sin(2 衣 二 prsin(t)U 人 一 (人 Vi 一 0 


带 着 这 些 初 始 条 件 MAPLE 的 程序 dsolve 给 出 一 个 解 ,我 们 将 它 看 作 一 个 过 程 P, 它 能 够 对 变化 的 
变量 上 提供 辽 雪 和 TY 的 的 数值 当然 我 们 还 需要 给 定 其 它 参 数 ， 即 a，b，<c 和 工 . 


> aa:=1: b:=0.5:  Cc:=-0.444444443: I 工 :=1: 
> FL:=dsolve({todes，init}，{UCt) ,VCt)} ,numeric) ; 
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天 1 := proc(rkpf5r) . .end 
因为 我 们 要 借助 图 像 表 示 解 ， 我 们 必须 在 区 间 (0 和 上 < 6r) 内 的 例如 201 个 均 分 点 上 执行 过 程 Fl， 
并 暂时 将 避 ( 切 和 了 (人 的 值 存 储 在 一 个 列表 中 . 


> Dunpts:= 200: Tend:= 6*x*Pi: 
> Lit:=[seq(Csubs(Fl(j*Tend/numpts),[U(t),V(t)]) ，j=0. .numpts)] : 


其 中 numpts 表示 点 数 . L1 是 列表 的 列表 . 每 次 运行 程序 F1 时 ， 新 的 一 组 志 5( 轨 和 站 将 被 添 
加 到 这 个 列表 中 ， 最 后 我 们 用 一 个 MAPLE 命令 产生 一 个 了 人 对 过 的 曲线 ， 如 图 11.1( 线 一 一 ). 


> plLot(LL) ; 


用 第 二 组 初 值 和 新 参数 值 > 我 们 将 得 到 另 一 个 解 ， 它 也 被 画 在 图 11.1 中 ( 线 一 一 一 )， 
> init:=V(O0)=0,U(0)=-.944,D(V) (0)=.658,D(U)(0)= 0: 
> YZ:=0.6: 


> F2:=dsolve({fodes，init}+，{U(t) ,VCt)} ,numeric) : 

> L2:=[seq(subs(F2(j*Tend/nunpts), [U(t) ,V(t)]) ，j=0. .numpts)] : 
现在 图 11.1 中 的 曲线 可 由 下 面 的 命令 产生 : 

> Plot({L1,L2},Labels=[Re,Im] ,Linestyle=f[o,3] ,color=black，font=[HELVETICA ,12] ) ; 


1l1.4 MATLAB 解 


在 前 一 节 中 微分 方程 的 数值 积分 也 可 以 用 MATLAB 实现 . 最 新 的 MATLAB 5.0 版 本 为 解 复 常 
微分 方程 提供 了 几 种 函数 . 
我 们 从 前 一 节 方 程 (11.6) 开始 . 将 


z(t :一 re 下 


代入 下 面 的 微分 方程 
>  ode = 0; 
BD2? 
一 (7 
为 用 MATLAB 解 这 个 常 微 分 方程 ， 我 们 将 这 个 二 阶 常 微分 方程 转变 为 两 个 一 阶 微分 方程 的 方 
程 组 . 用 替换 


尸 ( 划 ) + (ar2f(ett))2 十 pre( 二 cjP 人 一 0 (11.7) 


P(b) 


y() :一 | 让) 


方程 (11.7) 可 以 被 写成 


| 训 | -| 0 1 | | 2 
(1 ar2e2t 十 pret 十 c 0 嘱 (1) 
人 


一 光 


很 容易 将 这 个 线性 微分 方程 在 MATLAB 中 编译 成 一 个 独立 的 M 文件 ode.m, 见 算法 11.1. 这 样 一 
个 所 谓 ode 函数 至 少 有 两 个 输入 参数 上 和 y 并 返回 y, 记 为 yd 
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算法 11.1 微分 方程 ode .mm 
function ydq= ode(t,y) ; 
gJlLobal ab c I; 


ydq= [y(2) ; (ar*T ”~2*#rexp(2*+i# 七 ) +b*TeXxP(Iy 七 )+C) 冰 y(CL1)] ; 


解 微 分 方程 之 前 我 们 必须 给 全 局 变量 c, p 和 e 赋值 . 因为 全 局 变量 ” 被 当 作 一 个 参量 ， 它 将 在 后 
面 求解 时 被 分 别 赋值 . 

>> glLobal aa b c 工 

>> a= 1; b= 0.5; c= -4/9; 
为 积分 我 们 利用 函数 ode45,MATLAB 的 改进 的 4/5 阶 Runge-Kutta-Fehlberg 算法 ， 它 在 前 面 已 被 
用 于 MAPLE 求解 . 

>> options= odeset(:RelTol: ,le-8,)AbsTol， ,ie-8) ; 

>> 


>> 上 first set of Parameters 


>> T= 1 工 ; 
>> [tlt,p1]= ode45()，odqe:, [0 6*pi] , [~0.563 0.869*i]j ,options) ; 
>> 


>> hh Second set of parameterSs 

>> T= 0.6; 

>> [t2,p2]= ode45()，ode:,[O 6*pi] ,[-0.944 0.658*i]j ,options) ; 
为 获得 好 的 打印 质量 ,相对 和 绝对 误差 设 为 10-*. 执行 函数 ode45 需要 四 个 参数 : 第 一 个 是 提供 给 
导数 向 量 广 名 为 *ode' 的 函数 ; 第 二 个 是 积分 范围 ; 第 三 个 是 向 量 yo = [V(O)+iV(0),C(O)+iY(O)]Ti 
第 四 个 是 在 目前 状态 下 的 误差 oPtions， 

由 下 面 的 命令 产生 解 的 曲线 : 

>> Cjlf ; 

>> DPlot(p1433 1 bb 和 

>> hold on ; 

>> Plot(P2(: ,1)，T--?) ; 

>> hold off ; 
正如 所 希望 的 ， 这 些 命令 产生 了 一 个 几乎 与 由 MAPLE 获得 的 图 11.1 完全 一 样 的 图 形 . 
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本 章 研究 人 们 熟知 的 一 种 儿童 玩具 一 陀螺 的 运动 , 从 物理 的 角度 ,我 们 可 以 把 它 看 成 在 各 办 


同性 引力 场 中 的 刚性 转子 . 设 O 是 陀螺 尖顶 的 点 . 
图 12.1 坐标 系 


设 (z,y z) 是 原点 在 转子 的 O 点 的 惯性 坐标 系 ， 其 中 z 轴 的 方向 为 垂直 方向 (参见 图 12.1). 设 
G = (0,0, -mg) 是 转子 的 重量 (作用 在 其 质心 上 ), 这 里 mm 是 转子 的 质量 ， 而 9 是 重力 加 速度 则 


2z,7 一 


当 角 速度 为 一 (wii, oo, as ) 时 ， 这 个 转子 的 动能 是 
1 3 
一 7 党 了 二 呈 思 大 
7 是 转子 的 惯性 张 量 (参见 [12j). 至 少 存 在 一 个 满足 


O' = O 且 其 惯性 张 量 是 对 角 的 固定 在 物体 上 的 坐标 系 (zy ,2z). 在 这 个 坐标 系 中 ， 其 坐标 轴 称 为 
(12.1) 


注意 向 量 % 的 方向 是 其 旋转 轴 的 方 问 ， 
惯性 主轴 .对 于 对 称 转子 ， 其 对 称 轴 是 主轴 之 一 ， 我 们 将 它 标 为 轴 . 其 它 两 个 主轴 在 与 > 轴 垂 


直 的 (zy ) 平面 内 ， 这 时 动能 具有 形式 
一 号 (wz 十 co ) 十 Tac2， 
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其 中 五 和 瑟 是 相应 的 主 转动 惯量 . 
使 用 Euler 角 ( 亚 , 6, =) 描述 围绕 固定 点 O 的 旋转 是 便利 的 . 我 们 用 Euler 角 来 表述 经 过 一 系 
列 旋 转 所 得 到 的 由 坐标 系 (z,y z) 到 (z yz) 的 变换 (参见 图 12.1): 
1. 绕 z 轴 旋 转角 度 @(z 一 Zu)， 
2. 绕 zv 轴 ( 称 为 节 线 ) 旋转 角度 昌 (z 一 2 )， 
3. 绕 z'” 轴 旋 转角 度 E(zu 一 z/). 
由 坐标 系 (z,y, z) 变换 到 坐标 系 (z',y',z') 的 变换 矩阵 4( 更 ,96,=) 被 表述 为 旋转 矩阵 的 乘积 


4( 和 ,9,=) = RR(E) . 已 -( 昌 ) . 忆 -( 更 )， (12.2) 


其 中 尺 - 和 已 : 分 别 代 表 关 于 z 轴 或 > 轴 的 旋转 矩阵 

Euler 角 (更 ( 昌 ,6 伯 ,E 的 ) 可 以 用 作 转 子 的 广义 坐标 . 设 转子 在 时 间 间 隔 dt 内 关于 骨 时 轴 旋 转角 
度 lgldt. 这 个 旋转 可 依次 表述 为 分 别 关 于 z 轴 ，zu 轴 和 z' 轴 旋 转角 度 jgs|ldt = 6dt, lceldt = 6dt 
和 |csldt = Edt 的 旋转 ， 我 们 写成 


中 一 6 十 ce 十 避 =. (12.3) 


角速度 中 5 we ,wd= 在 旋转 坐标 系 (2 中 具有 下 面 的 分 量 : 


| 


((wm)z (wjw (wm)z) 4( 更 ， @ 昌 ,二 ) (0, 0， @) 
((wejc (wejw(we)z) = 忆 。 () : (9， 0, 0) 
((w=jz (wzsjy(ws)z) 三 (0,0， 9 
利用 (12.1) 和 (12.3), 我 们 把 动能 了 表示 为 广义 坐标 (@(,B(,E() 及 其 速度 (更 ( 雪 ,6( 人 ,三 () 的 
承 数 
有 二 (62 十 下 2 sin2 日 ) 十 5 有 人 十 更 cos 日 )2. 


关于 转子 的 势能 ， 我 们 有 


V 王 mngl .cos (12.4) 


其 中 ! 是 转子 的 质心 C 和 定点 O 之 间 的 距离 . 
我 们 的 问题 极 适 于 用 Lagrange 理论 求解 . 设 工 = 了 -TY 是 Lagrange 算 子 ， (qu ,9qn) 和 
(2……,9n) 是 具有 盖 个 自由 度 系 统 的 广义 举 标 和 速度 . 那么 ， 其 运动 方程 是 Lagrange 方程 


d ODL DL 
De ee 四 一 如 -一 宕 :二 和 
dt (过 Da 


如 果 工 不 依赖 于 某 个 坐标 gk( 这 样 的 坐标 称 为 循环 坐标 ), 则 相应 的 Lagrange 方程 是 





d BF BF 
di (这 人 (12.5) 


即 ， 共 辆 动量 pk 是 一 个 运动 常数 . 
由 于 三 个 Lagrange 方程 所 构成 的 方程 组 的 相对 复杂 性 ， 我 们 用 MAPLE 对 其 作 推导 和 研究 . 
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12.2 ”公式 表述 和 解 的 基本 分 析 
用 MAPLE 求解 问题 的 过 程 中， 我们 使 用 软件 包 linalg 中 的 向 量 表 示 以 及 下 面 的 变量 记忆 : 
( 王 , 昌 ,2E) 一 Euler := [ 划 ,日 ,= 
( 划 ,日 ,三 ) 全 dPuier := 一 [00,5] 


> Vith(1Linalg) : 
> Euler := vector([Phi，Theta，Xi]l) : 
>  dEuler := vector([Phi，theta，xi]y) : 


作为 求解 的 第 一 步 ， 我 们 用 Euler 角 来 表述 Lagrange 算 子 . 为 了 表述 关于 坐标 轴 > 和 z 轴 的 旋转 
矩阵 刀 - 和 环 :, 我 们 定义 和 矩阵 算 子 : 


Rz := matrix([[cos，sin，0]，[-sin，cos，0]，[0，0，1]); 
RX 


> 
> := matrix([[L，0，0]，[0，cos，sin] ，[0，-sin，cosjj) ; 


COS sin 0 


Ez:= 一 | -sin cos 0 
0 0 1 

0 0 

pz: 一 |0 cos sin 
0 一 Sin Cos 


变换 矩阵 4 由 方程 (12.2) 给 出 ， 
> AAA := evalm(Rz(Xi(t)) &* Rx(Theta( 蕊 )) 娘 RZC(Phi(t) 7)) 


使 用 方程 (12.3) 和 (12.4) 可 得 在 坐标 系 (z',yY,z) 中 的 角速度 网 量 % 为 


(ww ,wwwas) = 4.(0,0, 富 ) 十 已:(E) . (6,0,0) + (0,0, 2). 


> # Vectors of angular Vvelocities about Euler axis 
> “ omega[LPhij := vector([o ,0,phi(t)]7): 
> #rotation about axjis Z - Phi 


> omega[LTheta]j := Vector( [theta(t) ,0 ,01) : 

> #rotation about the 工 ， Xu -~ theta 

> # vector of the resulting angular Velocity 

> # Dmega in (xX;,y:，,Z?) 

> Omega := evalm(A &*y omega[Phi] + RZ(Xi( 蕊 ) ) 文本 omega[Theta] 
> + Vector([0,0 ,xi(t)])) ; 


? := [sin(E( 轨 ) sin(e(t)%(t + cos( 三 (的 ) 6(b，cos( 三 () sin(e 坟 ) 四 区 一 sin( 己 (t)) 8(t)， 
cos(e(bD) 0 十 的] 
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那么 ， 由 公式 (12.1) 和 (12.4), 可 以 把 Lagrange 算 子 写 为 
也 一 了 一 Y 三 (2 十 2 ) 十 5 一 7029l cos 日 . 


> T := 1/2*I1*(Omega[l] ”2 + Omega[2] -2) + 1/2*I3*O0mega[3] 2; 
> #Kinetic energy 


| 
人 := 一 
2 
11 ((sin((t) sin( 晶 ( 贡 ) 0 人 t) 十 cos( 二 (区 )) 9(t)) 十 (cos(E(b)sin(e()0(t 一 sin( 三 (但 ) g(t) 
十 末 8(cos(e(6)4(6) 十 6 


> V := M*yg#+LyrcCos(Theta( 人 七) ) : #potential energy 
> LIEF := 了 T- V: # Lagrangian 


第 二 步 是 研究 转子 的 Lagrange 方程 . 为 此 ， 定 义 MAPLE 函数 

LEq2(LagrFce，var ，dvar ，indep) 
是 有 用 的 (参见 算法 12.1), 其 中 LagrFce 是 Lagrange 算 子 ，var 和 dvaz 广义 变量 和 速度 的 加 量 ， 
indep 是 自 变 量 (时 间 娘 . 在 循环 坐标 的 情形 ， 这 个 天 数 返回 方程 (参见 12.5) 


DD 
5 一 7Adgk， 
其 中 TAMak(ek 的 共 辆 动量 ) 是 运动 常数 .这 个 函数 返回 一 个 方程 集 . 
由 于 标准 函数 diff(g,u) 仅 当 是 变量 名 时 才 求 导 , 我 们 将 定义 广义 的 求 导 范 数 sdiff(g,u)， 
其 中 心 可 以 是 个 表达 式 . 
为 了 连接 字符 串 7ZAMM 和 循环 变量 名 gx( 由 我 们 定义 的 一 个 函数 gak(b), 我 们 应 该 定义 连接 名 称 
name 和 函数 的 名 称 fce 的 函数 cname(name ,fce). 这 些 函 数 的 定义 在 算法 (12.1) 中 给 出 . 
既然 坐标 更 和 三 是 循环 的 ， 函 数 LEq2 返回 运动 常数 pe( 名 称 为 TMs) 和 pe(7TMz) 的 两 个 方 
程 和 对 应 于 变量 日 的 Lagrange 方程 . 为 了 比较 容易 选取 这 些 方程 的 右 端 ， 我 们 把 这 组 方程 变换 成 
一 个 表 ， 其 中 左 端 (TMs,TAM=s,0) 是 相应 右 端的 标记 . 


> # generation of the Lagrange equation，or integIals 
> # of motion (for Phi and Xiy) 

> LEqn := LEq2(LF,Euler(t) ,dEuler(t) ,七 ) : 

> LEqn := table([op(LEqn)]y) ; 

> 


#transform 本 he resStlt from Set to 七 be 


7 了 Pan := table(| 
1Mas=TbHb 一 Tbtcos( 昌 四) 十 刺 cos( 昌 ) 0 机 十 妇 cos( 昌 ()E 
1ME =713cos(9() 0 十 73E(b 
GE ( 志 9 人 (四 ) 一 Tcos(e()0( 罗 sin( 昌 ) 十 好 sin( 昌 人) gb cos(e 人 ) 
十 13sin( 昌 (人 )0bE 人 tt 一 MT9Esin(B()) 
]) 
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最 重要 的 运动 常数 是 能 量 媚 三 了 +Y. 因为 wz' 与 运动 常数 ps 成 比 鲍 ， 所 以 量 五 = 已 -1/27sw2， 


也 是 一 个 运动 单数 . 在 以 后 的 讨论 中 ， 我 们 将 使 用 五 。 而 不 是 五. 


> # Integrals of motion:  IMLPhi]j，IM[Xi] and energy Ec 
> Ec := Simplify(T + V- 1/2*I3+*0megaf[3] ”2) ; 


Prc := 5 1 0(t” 一 5 171 bt cos( 昌 (t)2 十 5 110( 攻 十 MgEcos(B(t)) 


工法 12.1 生成 Lagrange 方程 的 函数 
洛 数 sdiff 


sdiftf := prockGu,Svar) local 了 ; 
#diftferentiation of u with Tespect to expression SVaI 
subs(P = Svar ,qiff(subs(svar = P,u) ,P)) 
end ; 
田 数 cname 
cname := proc (nam,fce) local P; 
#add name of function fce to the name Dam 
if type(Cfce,function) then 
p:=op(0,fce); nam[Pp] 


elSe 
Dam.fce 
fi 
enDd ; 
也 数 LE92 
LEq2 := PIoc (LagrFce，var::vector ,dvar: :Vector ,indep::name) 


J]ocal 工 ,j,N,res:; 
#the generation of the Lagrange equations or constants 
# of motion IM (for cyclic variables) for the Lagrange 
# function LagrFce and vector of generalizZed coordinates 
# Var and velIocities dvar and independent vaTriable indep 
N:=vectdim(var) ; 
for 1 to N do 
res[i]j :=simplitfy(sdiff(LagrFce,var[i]y)); 
if res[i]=0 then 
res[i]j := cname(:IM: ,var[i]) 
= Sdiff(LagrFce，dvar[i]y) 
elSe 
res[i] :=0 = diff(sdiff(LagrFce，dvar[i])，indep) 
-~ res [ij 
斑 这 
od; 
{seq(Csimplify(Cres[ij)，i=1..N)} 
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enDd ; 
为 了 简捷 ， 我 们 将 执行 下 面 的 步骤 : 
1. 由 pe 和 ps 的 方程 解 出 未 知 量 |, 丰 ], 然后 将 之 代入 互 -. 


人 1 2 瑟 
1 改 


妃 丙 
p 一 一 一 一 一 一 一 
27m01 五 


2 6 

这 人 = 
并 由 古 。 的 方程 解 出 未 知 量 62. 

3. 将 凿 = cosB 日 代入 所 得 的 方程 中 . 


结果 我 们 得 到 下 面 关 于 v(b 的 微分 方程 ， 它 描述 了 转子 的 所 谓 章 动 (nutation). 
妈 2 一 Wu) := 一 bu 一 (ae+a2)u2 +(2ab--D)uv+a 一 22. (12.6) 


由 y(zw) > 0 得 到 : 
1. 由 6 >0 可 得 y( 士 co) = 士 co 且 y( 士 1) < 0; 因此 yu) 至 少 有 一 个 根 粒 > 1. 
2. 由 YY 士 ) < 0, y(u) 在 区 间 [一 1 1 内 有 两 个 根 或 没有 根 . 对 于 物理 的 实际 条 件 ， 应 该 存在 两 个 
根 : ?wii < va 6 [一 1H. 因为 对 于 cos6i = wu 和 coses = tx, 日 =0, 所 以 日 (< [e>,8j, 因 
而 陀螺 的 章 动 角 在 9: 和 6 之 间 摆 动 . 


> # find Phi，xi with subs. IMXi=a*rkI1，IMPhi=bxrIL 
> phixi := solve({LEqn[IM[Phi]] = b*I1，LEqn[IM[Xi]] =a *I1}， 
> {Phi(t) ,xi(t)}); 


妇 cos(9( 划 ) aa 一 妇 cos(B()8 上 +aeD 一 acos(B( 切 ) 
| 
cos(e(t))a 一 pb 


了 二 一 1 十 cos(S0D35 


Econst := Subs(Phixi,Ec) : 
# Substitution for xi and Phi in Ec 
theta2 := SoLlve(Subs(M = I1/(2*+*g#L)*beta， 
Econst = It*alpPha/2) ,theta( 盛 ) ~2) : 
# SUubstittutIon 
# cos(Theta) = u -> -~sin(CTheta)*theta = du 
# then du2 = diff(u(Ct) ,tt) ”2 
du2 := Simplify(subs(cos(Theta(t)) = 忆 ， 
theta2* (1-cos (Theta(t))>2))) ; 


du :=pB 妇 -22a2-av2 上 +2uapbg 一 6 一 2 十 a 


MYVVYVMYMVMVMMYMV YYV 


V 


# analysis of the solution due to the form of du2 
> collect(du2 ,ul) ; 


B8 妇 十 (-a2 一 al) 十 (2abp 一 Du 一 妇 +a 


> seq(factor(subs(u = ii，du2))，i = {-t,1}); 
一 (a 十 昌 ”， 一 (aa 一切” 
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> # So du2 (+-1) < 0 for b<> 0 


陛 螺 关于 垂直 轴 z 轴 的 旋转 (所 谓 进 动 procession) 由 王 (t) 描述 ， 它 是 微分 方程 
b 一 Q@cos 日 
sin2 

的 解 (参见 上 面 变量 phixi[l] 的 值 ). 然后 ， 我 们 能 够 根据 更 在 点 961,6sz( 在 该 处 日 = 0) 的 符号 对 
转子 的 运动 类 型 分 类 . 设 6l > 6。 > 0, 因而 va = cos 9。 > ?211 

1. 如 果 We > w 或 ta <a, 则 更 不 改变 其 符号 (参见 图 12.2); 

2. 如 果 “- au 和 - aul 异 号 ， 则 瑟 周期 性 地 改变 符号 (参见 图 12.3). 
微分 方程 12.6) 可 以 用 椭圆 函数 解 出 . 然而 ， 我 们 将 数值 求解 这 个 问题 . 不 过 微分 方程 (12.6) 的 
土 述 形式 不 适宜 用 来 求 数值 解 . 


(12.7) 


12.3 数值 解 


我 们 将 从 由 MAPLE 生成 的 并 存储 于 变量 LEq2 下 的 Lagrange 函数 开始 . 转子 运动 的 最 重要 特 
征 是 由 时 间 的 因 变 量 @( 区 和 G@ 人 雪 ( 转 子 的 进 动 和 章 动 角 ) 给 出 的 ， 所 以 我 们 将 只 求 这 些 变量 . 

因为 我 们 求 得 了 对 王 和 2 的 解 ( 它 们 仅 依 赖 于 日 并 存储 在 MAPLE 的 变量 Phixi 中 )， 所 
以 我 们 能 够 在 后 几 个 与 变量 6 相关 的 Lagrange 方程 中 用 它们 替代 更 和 2. 这 个 方程 与 平凡 方 
程 diff(Theta(t) ,t) = theta(t) 以 及 来 自 phixi 中 的 更 (参见 (12.7)) 的 方程 ， 构 成 了 关于 变量 
Phi(t) ，Theta(t) 和 theta(t) 的 含 三 个 一 阶 微分 方程 的 方程 组 .现在 我 们 数值 地 求解 这 个 方程 
组 . 


图 12.2 陀螺 运动 (和 = 1.1) 


税 亿 


> # We Substitute for Xi and Phi 

> # in LEqn[0O] (DE for Theta) 

> eq[CTheta] := simplify(subs(Phixi，LEqn[O])): 

> eqf[Theta] := ' simplify(eqfITheta]*I1+*(cos(Theta(t))”"2 -~ ti) ”2) : 
> 打 


simplLify constant Parameters in DE 
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> eq[Theta]j := simplify(subs(M = I1/(2*xg*L)*beta，eq[Theta]/I1-2) ) ; 


ege :一 ( 志 olL)) 一 2 ( 0(t)) cos( 日 ( 贡 )2 十 (全 g(t))cos( 昌 ( 划 ) 二 cos( 昌 (tb) sin( 昌 ()ap 
一 cos(e())sin(e() 刀 一 sin( 昌 (区 ) cos( 昌 ()a2 + sin(e 人 ()pa 一 3 sin(G(t) 
+ Bsin(e(bjcos(e(b)2 - 5 bsin(e() cos(e(t) 


> # DE for Phi 
> eqLPhij := qiff(Phi(t),t) = subs(Phixi， Phi(t) ) ; 
cos((i))a 一 pb 


D 
IE 


求解 的 方程 组 依赖 三 个 参数 ,bp 和 O 以 及 三 个 初 值 划 (0),9(0) 和 6(0). 注意 6 > 0 而 a 和 口 能 够 
被 取 为 正 值 . 我 们 取 初 值 条 件 为 
惠 (0) = 0,B(0) = 6o, 96(0) = 0， 其 中 eeo = 0.1， 


4 一 1 一 和 Xacos(Bo)，6 = 1 其 中 光 壹 谨 工 


图 12.3 陀螺 运动 (和 = 0.96) 





9 介 


由 对 方程 (12.7) 的 讨论 得 到 两 种 类 型 的 进 动 . 如 果 入 > 1, 上 面 得 到 的 解 是 更 符号 不 变 ， 是 纯 
进 动 的 解 . 对 于 入 < 1, 得 到 的 解 是 王 会 变 号 ， 它 对 应 于 振 划 进 动 . 
由 王 () 对 6) 的 参数 作 图 展示 这 个 解 . 结果 分 别 在 图 12.2( 入 = 1.1) 和 图 12.3( 入 = 0.96) 中 给 


出 . 
> #Qq definition of initial conditions 
> Theta0 := 0.1: #Theta(O) 
> initc := Theta(0) = Theta0，theta(0) = 0，Phi(0O) = 0: 
> # _ definition of Parameters 
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> ad:=1: beta := 1: 

> 1ambda := 1.1: # 0.96 second PLot 

> Pb := arkcos(Theta0)*1ambda: 

> # _ dependent variables of the System DE 

> var := {Phi(t) ,Theta(t) ,theta(t) }: 

> # SoJVing DE 

> Tes := dsolve({feq[Theta] = 0，diff(Theta(t)，t) = theta( 蕊 ) ， 

> eq[Phi] ，initc}，var，Dnumeric) ; 

res :一 Proc(rkf5_z) ... end 
# TeSuUlting PJlLot 

> Plot([seq([subs(res(i*+*0.05)，Phi(t) ) ， 

> subs (res(i*0.05)，Theta(t))]，i = 0..300)]); 
参考 文献 


[1 HERBERT GOLDSTEIN，Classical Mechanazcs， Addison-Wesley，1980. 


[2] M 


. 及 . SPIEGEL，7TAeoretical AMfechantics，McGraw-Hill，1980. 





第 十 三 章 ” 标 度 问 题 


J.Bxucpayr a7md .Drepriceg 


当 使 用 一 个 压 电 材料 的 压力 转换 器 测量 一 个 容器 内 的 气压 变化 时 (如 发 动机 气缸 或 枪 管 ), 要 
得 到 相当 高 的 精确 值 ， 才能 达到 特定 的 绝对 精确 度 . 为 此 需要 特殊 的 测量 和 标 度 技术 , 能够 定量 地 
确定 转换 器 的 动态 测量 性 质 . 转换 器 输出 的 是 电压 . 因此 我 们 必须 给 转换 器 定 标 ， 才 能 最 后 得 到 
压力 . 当 我 们 测量 的 是 稳 态 压力 时 ， 这 一 点 不 难 做 到 . 设计 能 测量 动态 压力 的 设备 就 非常 复杂 . 
这 个 问题 已 被 人 利用 水 压 舱 解决 ， 参 见 [3]. 对 这 个 问题 我 们 最 近 设 计 了 一 个 实验 方法 用 来 解答 动 
态 压力 标 度 问 题 . 这 个 方法 的 基本 问题 是 建立 一 个 物理 模型 ， 它 可 用 数学 描述 水 压 脉冲 . 这 个 模 
型 使 得 我 们 能 够 用 绝对 压力 单位 给 一 个 动态 脉冲 压力 转换 器 定 标 . 实验 方案 如 图 13.1 描述 .在 下 
节 我 们 将 用 四 中 的 结果 设计 一 个 物理 模型 . 


13.2 ”物理 模型 的 描述 


压力 转换 器 利用 水 压 在 一 个 适当 的 水 压 舱 内 确定 标 度 ， 某 些 应 用 问题 ， 如 测量 汽车 发 动机 或 
枪 管内 的 压力 ， 必 须 在 动态 下 确定 标 度 . 为 此 我 们 设计 了 一 个 如 图 13.1 描述 的 简单 实验 ， 在 一 个 
圆柱 形 的 水 压 舱 内 注入 一 种 可 压缩 液体 ， 液体 的 初始 体积 是 古 , 活塞 与 圆柱 有 相同 的 截面 积 S, 且 
被 质量 为 M 速度 为 ve > 0 的 物体 撞击 .活塞 的 运动 r( 导致 体积 的 变化 AV = Sz 人 . 体积 变化 
”对 应 一 个 压力 p( 区 (对 几乎 所 有 可 压缩 液体 ) 这 个 压力 可 以 由 方程 


AT AT 
记 ) (13.1) 


pi) 一 全 十 有 
求 得 ， 其 中 w> 0 和 有 >0 是 所 给 液体 的 参数 . 
设 撞击 速度 vo 被 限制 为 某 个 合理 值 . 我 们 可 以 忽略 波动 过 程 . 活塞 的 移动 可 以 用 微分 方程 描 
述 


Adf 基 = 一 D(t)9， (13.2) 
初始 条 件 为 
zl(0) 一 0， 
uv 一 2Z(0) 三 0. 9 


将 关于 压力 p(b) 的 方程 (13.1) 和 AV = Sz(b) 代入 方程 (13.2) 得 : 


> Mz+kdjiff(Cx(tt) ， 七 35 蕊 ) = 一 《alLpPha*dV/VO 十 betayk (qdqV/VO) ”2)*S ; 
D2 adyY 6df 
AM (一 三 
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图 13.1 标 度 截面 


撞击 物体 




















0 0 二 一 人 下 全 : S 2 
| < 十 和 要 时 


> Subs(dV = S*#x(t) ，")/S; 
M ( 癌 x()  aSx 人 的 BS2x(t) 
9 | VO TO? 
用 公式 9 = rd2/4, 名 = rd2io/4 和 常数 


ja 吧 Cr do 
-VE 和 
简化 方程 . 


Subs(S = Pi*rkd”2/4，VO = Pi*d ”2*+10/4，1): 
simplify("，{a>2*4*+*M*10 = alpPha+kPi*d”`2， 
> b*#4*M*]10>~2 = beta*Pi*rdq~2}，[alpha，beta] ) ; 
M (名 x(t) 人) AM (a2 十 px 人 t)) 
TF Q2 T CQ 


M V 


4 


> eq := "Pi*y*d~2/47/M; 
D? 
eg :一 三 X(t) 一 一 x(t(a2 十 bx 人 tb) 
> “ alpha*dV/VO + beta*(dV/VO) 2: 
> Subs(dV = S+x(t)，S = Piykd~2/4，VO = Pi+d>~2*+107/4，") ; 
CQx(tj) 和 DGx 人 tb” 
10 107 


现在 我 们 可 以 将 初 值 问题 (13.2)-(13.3) 重新 写作 








( 四 十 a2z( 十 bz(t 一 0， (13.4) 


z(0) 三 0， 


ER (13.5) 
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利用 上 面 初 值 问 题 的 解 z(b, 我 们 可 以 计算 体积 的 变化 AY = S$z(). 从 (13.1) 我 们 得 到 上 时刻 的 
压力 值 了 =2P(b 
p(t) 一 2 (a 本 人 (13.6) 
D O 


在 测量 水 压 脉冲 时 我 们 用 数值 示波器 记录 了 转换 器 的 电压 Z = 人 均 . 对 某 个 时 间 区 间 工 = [0,tmaz) 
我 们 获得 转换 器 的 实验 记录 , 参见 图 13.1. 对 同样 这 个 时 间 区 间 我 们 必须 求 以 上 初 值 问题 的 解 z( 切 : 
然后 我 们 可 以 比较 实验 得 到 的 水 压 与 从 (13.6) 计算 得 到 的 压力 pz( 的 . 为 特殊 的 目的 ， 只 需 在 压力 达 
到 其 最 大 值 的 子 区 间 Tm CT 上 比较 测量 的 和 计算 的 压力 . 

当 p( 世 = 大 (tb 大 是 常数 时 ， 转 换 器 的 定 标 非常 简单 .如果 不 是 常数 ， 我 们 必须 用 Fourier 
变换 方法 ， 这 种 方法 的 详细 分 析 超 出 了 本 章 的 范围 . 


13.3 解 的 分 解 逼 近 
假设 初 值 问题 (13.4)-(13.5) 的 解 z( 鸭 具有 形式 
zlt) 一 za(t) 十 Zo 人 (tt)， 


其 中 za(b 是 自由 无 阻尼 运动 [4 的 初 值 问题 的 解 


关 (t) 十 a2za(t) 
za(0) 
Za(0) 一 ?0. 


上 | 


当 a 关 0 上面 的 初 值 问题 有 解析 解 
2o sin(at) 


zu(t) 二 (13.7) 


注意 到 可 以 用 MAPLE 推导 这 个 解 : 


> deq := {diff(xa(t)，t，t) + a ”2*Xxa(t) = 0，xa(0) = 0，DCxa) (0) = VO} : 
> dsolve(deq，xa(t) ) ; 
全 于 VO sin(at) 
Q 
初 值 问题 (13.4)-(13.5) 的 解 (区 具有 形式 


zt) 一 + zt， (13.8) 


2o sin(at) 
Q 


假设 ze(b 是 za(b 的 小 扰动 . 将 z(b 代入 (13.4) 我 们 得 到 关于 ze(b) 的 初 值 问题 


2 人 (t 十 a2zs(b) 十 bzbe(t)2 十 2peosintobzs(t) 十 (sntot)2 一 0， 
Z5(0) 二 0， 
Zzb(0) 一 0. 


我 们 将 用 MAPLE 求 这 个 微分 方程 的 解 ze( 轨 ,用 它 解 微分 方程 的 有 力 工 具 一 截断 客 级 数 . 这 里 截 
断 医 级 数 在 上 = 0 展开 . 它 被 用 于 阶 数 小 于 或 等 于 截断 宪 级 数 的 阶 数 六 的 多 项 式 . MAPLE 的 指 
令 如 下 (我 们 将 令 阶 数 =12) 
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> # initial Value Problem B 
> eqb := diff(xzb(t)，t,， 七 ) + a ~2*#Xb(t) + by*xb(t) 2 
过 十 et + b*(vO*sin(ayt)Va) ”2 = 
Du0sin(a 如 xb 人 (tuv02sin(at? 
2 > 呈 时 有 
edb :一 人 xb 人 (ti)) 十 axb(t 十 pxb(t 十 2 ee 
> incondb := xb(O0) = 0,DCxb)(0) = 
> # deteIrmination of 0rder truncated PoweIr series 
> Order := 12: 
> solb := dsolve({feqb，ianacondb}，xb(t)，series) ; 
so 及 := eg 一 二 5a02 奉 十 霹 8002a2 刘 十 扫 003 轨 一 说 bu0204ta- 
12 72 960 


一 一 一 5 V03a2 妇 十 bu02(17ae 一 60 刀 v02) 研 0 十 a4822003t 十 DO(tl2) 


5 5 








12320 
> polb := convert(rhs(solb) ，polynom) : 


由 Maple 给 出 的 截断 过 级 数 sv( 切 的 多 项 式 盘 近 等 价 于 


a2t3 uUobt3 aG4t4 
和 6 ”21 十 80 


5voa2pt5 uv8t6b2 17t6a6 3ba42ot7 


504 504 30240 3080 


用 通 近 解 v(b =zra( 切 十 pv 人 bi 将 二 v(t) 代入 方程 (13.6) 可 得 压力 p(b 的 逼近 5 ( 划 . 
为 获得 z() 的 充分 精确 的 和 逼近 要 事先 选择 多 项 式 的 阶 数 ， 我 们 必须 估计 截断 赛 级 数 的 收敛 
域 . 为 此 我 们 将 进行 一 些 简单 的 富有 启发 性 的 讨论 . 从 解 ze 人 (加 和 压力 pz 人 的 定义 可 知 压 力 脉冲 在 


二 (13.10) 
他 














PN 人 ( 电 三 一 013.9) 





时 是 正 的 .这 是 确定 区 间 了 的 第 一 个 条 件 ， 在 这 个 区 间 上 我 们 求解 z( 切 和 压力 p(t， 

设 (13.9) 式 插 号 中 的 每 一 项 绝对 值 均 小 于 1. 我们 可 以 看 到 (13.9) 式 括号 中 的 第 四 项 和 它 以 后 
的 项 是 第 二 项 和 第 三 项 乘 以 某 个 绝对 值 小 于 1 的 常数 的 组 合 ， 所 以 只 有 第 二 项 和 第 三 项 起 作用 . 
这 个 假设 导出 了 第 二 个 条 件 


p 
< teooy 一 min(|- 大 站 ,| 开 | 9 (13.11) 
显然 对 这 些 二 的 值 ， 在 (13.9) 式 括号 中 每 项 的 绝对 值 均 小 于 1. 如 果 条 件 (13.11) 有 效 ， 那 么 条 件 


(13.10) 成 立 ， 由 (13.7) 得 lzo(b| < vo/a, 且 当 压力 p(b) > 0 标 度 才 有 意义 .为 了 获得 解 z( 昌 的 正 
通 近 zwv(b, 从 (13.7)(13.8) 和 【13.11), 我 们 引入 第 三 个 条 件 


t< 妃 一 ( 气 2)- 1/4， (13.12) 
条 件 〈13.11) 和 (13.12) 确定 了 最 大 区 闻 [0,tm), 其 中 如 = min(tcoey, 好 ). 于 是 截断 过 级 数 将 收敛 到 


解 ze(b, 且 有 逼 近 解 fw 人 (tb 将 收敛 到 我 们 问题 的 解 z( 革 : 
为 达到 给 定 的 精确 度 ， 我 们 该 如 何 选择 截断 寡 级 数 的 阶 数 ? 我 们 将 采用 下 面 的 标准 


TV 
lew|+laew-il <el》 ail， (13.13) 
+ 一 0 
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图 13.2 解 的 数值 和 多 项 式 逼 近 


xb [mml] 





0.0 0.2 0.4 ee .6 0.8 t [msj 


其 中 ai 是 寡 级 数 的 项 ， < 为 可 接受 的 局 部 相对 逼近 误差 的 最 大 值 [ 引 . 这 个 标准 利用 了 N 阶 医 级 
数 展 式 的 最 后 两 项 绝对 值 的 和 作为 截断 误差 的 量度， 将 它 与 截断 才 级 数 绝对 值 联系 起 来 . 在 此 ， 
当 守 级 数 阶 数 为 12 时 ， 从 标准 (13.13) 得 = = CO(10 一 ) 


例子 

为 证 实 这 种 方法 ， 我 们 将 解 上 面 的 初 值 问题 ， 并 采用 J.Buchar 得 到 的 实验 数据 vo = 5[ms” ]， 
a 一 3.8FE9[Nrm 一 ], 6 =3PE1L0[Nm- ,1o= 王 2 已 -2[m,d=1.5 五 -2[m]， AM =5[k9]. 下 面 的 MAPLE 
程序 将 绘 出 上 面 初 值 问题 的 数值 解 和 用 不 同 阶 数 截断 车 级 数 的 多 项 式 台 近 解 的 图 形 . 


solpP := t-> (sol(t)V/10)*(alpha + betak(sol(t)/10))V10”>9: 
# _ estimation of radius of conVergence 
tm := min(evalft(sqrt(6)/a) ,evalf(21/(vO*b))”、(t/3) ， 
eVvalf(21/(a*yb*yV0))、~(1/4) ) : 


> # _ experimental constants 

> alpha := 3.8*l0`9: beta := 30+r10”`9: dd := 0.015: 

> 10:=0.02: M := 5: VvVO := 5: 

> # _ determination of Parameter a，hb 

>  a := sqrt(alpha*Pi*yrd~2/(4*My10)): b := beta+rPi*rd~2/(4*M*y10>~2) : 
吧 # initial Value Problem B 

> eqb := diff(xb(t) ,七 t) + a ~2*xb(t) + b+Xxb(t) ”~2 

> + 2*b*#VO*+Sin(az*) 冰 xb(t)/a + b*(VO*+*Sin(ay#t)/a) “2=0: 
> inconadqb := xb(0) = 0，DGCxbl) (0) = 0: 

> # PumeTrical solution 

> pnumsol := dsolve({feqb，incondb}，xb(t) ，numeric) : 

> Sol := X -> subs(numsol(x)，xb(t) + vO*yrSsin(ay 七 ) /al) : 

> 

> 

> 

> 
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13.3 压强 的 数值 和 多 项 式 逼 近 
上 压强 [MPal 


00 
4OO 
和 
00 S 
NN 
忆 
外 
人 
00 RN 
AS 
忆 


13.4 解 的 数值 和 多 项 式 通 近 比 较 


xb tmm) 





159 
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图 13.5 压强 的 数值 和 多 项 式 遏 近 比 较 


外 强 [MPal 
?1400 
下 
E 汪 
&; 
1200 忆 ， 
和 
于 
站 
中 
1000 2 
昌 
中 
间 
800 灿 
4 
本 
7 
00 2 
5 
Er 一 7 
中 、 sam 
Se SRND p8(t} 一 
> 一 PE 
LJL N 、\ 
本 考 人 
雯 、 下 你 
oO 0.2 0.4 D.6 .0.8 下、 ”tms] 
改 、- 2 
200 Pstu 


# Saving graphs of numerical Solut1ion 
PlLot(4so1l，0. .tm，thickness=3) : 
PlLot(solp，0. .tm，thickness=3) : 
# analytic solution of first equation 
xa := VO*Sin(ayt)/a: 
# Drder of truncated power series appProximation 
# and Preparation of graphs 
0ORD1 := [seq(i，i = 6..10)，12]: 
0RD2 [seq(i，i = 6..10)]: 
# Polynomial approximation of 5th - 9th 
# and 11th degree of solution 
for ord in 0ORD1L do : 
Order := ord: 


村 


X[num] 
P [num] 


sersol := dsolve({feqb，incondb}j，xb(t) ，series) : 
Pol := convert (rhs(sersol) ，Polynom) : 
Sol := Pol + Xa: 


solp := (sol/10)*(alpha + beta*#SolV/1L0)V710-9: 
# _ Saving graphs 

PLot(socl, 七 = 0..tmy) : 

PlLot(solP，,， 七 = 0..tm): 


X[Lordj 
P [ordj] 
cd: 


# dispJLay grapPhs of solutions and PTeSSuUTeS 

# numeric and acceptable Power SeIles Solution 
with(PLots) : 
disPlay({XrInun] ，X[12] 7) ; 
display({P[nun] ，P[12] }) ; 

# comparison of numeric and Polynomial Solution 


YYVVYMVYMMYVMYMVMYMMYMVYMVMYMMYMVYMVYMVMYMMYMMYMMYMMYMVYVYMVYMVYVMVMYMVYMVYMV YV 
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> display({X[num] ，seq(CX[i] ， 宇 = 0RD2)}) ; 
> display(fP[numn] ，seq(P[i]，i = 0RD2)}); 


13.4 结论 


从 这 些 图 形 我 们 可 以 看 到 阶 数 小 于 8 的 多 项 式 是 不 可 接受 的 , 因为 在 区 间 的 末端 精确 度 很 差 . 
但 在 一 个 较 小 区 间 内 标 度 (从 零 到 压力 的 最 大 值 ) 阶 数 高 于 5 的 多 项 式 是 可 接受 的 . 为 得 到 对 问题 
解 zt 区 的 精确 逼近 ， 根 据 所 给 实验 数据 ， 阶 数 为 11 的 多 项 式 和 逼 近 效 果 最 好 . 
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9. Parto7i and .7 Treotrce 天 


14.1 引言 


热流 问题 是 热力 学 的 一 个 重要 组 成 部 分 . 这 些 问 题 的 解 影响 许多 其 它 技术 问题 . 描述 热流 规 
律 的 最 重要 的 方程 是 热 方程 (Fourier 方程 ) 
人 627 


2 人 








解 方程 (14.1) 的 难度 依赖 于 边界 和 初始 条 件 ， 我 们 将 热流 问题 分 成 两 类 . 
1. 定 态 问 题 ， 此 时 温度 了 不 是 时 间 上 的 函数 ， 方 程 (14.1) 变 成 Laplace 方程 . 在 这 一 章 的 第 一 
部 分 我 们 将 解 这 个 问题 . 
2. 时 间 依 赖 问题 ， 这 些 问题 通常 用 数值 方法 求解 . 我 们 将 证 明 ， 对 非常 简单 的 边界 条 件 了 (0, 避 = 
篆 数 ， 和 初始 条 件 T(z,0) = 常数 的 一 维 问题 工 =T(z,b 可 以 找到 一 个 解析 解 . 


14.2 球 过 上 的 热流 


考虑 一 个 空心 的 球 ， 内 半径 为 mi 外 半径 为 m2. 设 五 和 宛 分 别 为 内 外 球面 上 的 不 变温 订 ， 大 
是 球 竞 的 热 导 系数 . 我 们 将 求 出 热流 的 定 态 解 和 温度 在 径 向 > 上 的 分 布 . 

设 ,yz 是 欧 氏 空间 的 坐标 . 如 果 球 体 的 中 心 在 原点 2(0,0,0), 则 温度 全 = T(z,yz) 是 球体 
内 位 置 的 函数 . 由 对 称 性 和 边界 条 件 ， 显 然 对 球面 z2 十 吧 十 2 三 妆 rr<ra 上 所 有 点 (z,y,z)， 
T(z,yz) 王 常数, 因此 了 工 =Tlr) 仅 是 7 的 函数 ， 我 们 的 问题 是 一 维 的 . 在 MAPLE 中 我 们 将 用 两 
种 方法 解答 它 ， 两 种 方法 的 区 别 在 于 物理 模型 不 同 . 


14.2.1 定 态 的 热流 模型 
设 4 是 热流 密度 根据 Eourier 定律 


qd 三 一 KgradT [mm 一 天 一 天]. (14.2) 


考虑 中 心 在 原点 ， 半 径 为 r, rr 和 r<r 的 球面 ， 其 面积 为 4 = 4xrr2?. 则 穿 过 它 的 热流 Q 为 


Q=d4 [ 克 ]. (14.3) 
这 个 流量 的 定 态 不 依赖 半径 ”, 因为 在 球体 内 没有 热源 . 对 一 维 问 题 ，gradT 可 以 由 dT/dr 代替 、 
于 是 从 (14.2) 和 (14.3) 我 们 得 到 


QQ = -dmr2S， (14.4) 


记 
Q 一 一 一 (14.5) 
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14.1 球 壳 横 截面 





则 有 有 
其 中 参数 a 是 未 知 的 ， 这 个 方程 的 一 般 解 是 参数 a 的 函数 ， 并 且 可 手工 推导 得 到 . 
了 三 (070 (14.7) 
现在 我 们 说 明 解 析 地 求解 方程 (14.6) 是 多 么 简单 : 
> Sol := dsolve(diff(T(F)，r) = -a/(Cr”2)，TCr)) ; 
30 上 (站 二 2 
> T := unapplLy(rhs(so1l)，Tr) ; 
4 十 -CIJ7 
人 一 一 一 一 一 
7 
我 们 应 该 用 初始 条 件 确定 a 和 -C1 
T(r1) = 了 1， T(r2) = 了 2， (14.8) 
> sol := solve({TCrl) = T1，T(r2) = T2}，{fa，-_C1})， 
汪汪 72TII4TT 到 休 (一 人 十 2) 
sol := {-C1 = 人 } 


> assign(SsoJI) ; 


> Dormnal(T(Cr) ) ; 
一 rr1 7271 二 71r7r272 一 7T2r2 二 7 了 717i 


(一 "3 十 r1)7 
现在 温度 函数 完全 得 到 了 .对 给 定 的 外 侧 和 内 侧 表面 的 温度 ， 球 壳 内 的 温度 仅 是 r 的 函数 . 
最 后 ， 我 们 可 以 用 (14.5) 根据 参数 a 的 定义 计算 所 求 热流 Q. 
> QU := 4 水 区 水 已 二 本 己 ; 


_ 4 工人 r1 (一 了 1 十 72) 


一 7 双 十 7 
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14.2.2 定 态 的 Fourier 模型 
对 二 维 定 态 问题 我 们 
9 ar exT | 
orz2 Dr2 


或 用 极 坐 标 ” ”p 形式 


927 207 cosp 07 10 
一 一 十 一 一 一 一 一 十 一 一 一 一 0. 14.10 
Dr2 7eBr 72szp Dp 刘 72 DD52 】 


因为 ， 此 时 工 =T(r) 仅 是 > 的 函数 ， 方 程 (14.10) 简化 为 


02 207 
了 (14.11) 


具有 初 值 条 件 (14.8). 解 (14.11) 可 得 温度 了 T(m), 它 为 半径 > 的 函数 ， 
> TeStart ; 

inicon := TCr1) = Tl1，Tr2) = T2: 

> deq := diff(TGF)， 工 ，I) + 站 = 0; 

本 








V 


dea = (号 _T(r )) 十 2 科 一 -=0 

> Sol := simplify(dsolve({deq,inicon}，TCr))) ; 

rr727r2 一 rr7YIrI 二 717271 一 rr1r272 
(一 "1 十 72)7 


对 给 定 的 参数 六 1 了 1， 72， 了 2， 通过 定义 球体 内 的 温度 分 布 二 全 了 (7)， 用 Fourier 方法 我 们 得 到 问题 
的 解析 解 . 
> T := unappLy(rhs(sol)，Tr) ; 
mr 7T27r2 一 mr7Irli 二 7r17271 一 rr172 72 
(一 1 十 72)7 


5s0! :一 了 (>) 王 


人 


它 与 用 第 一 种 方法 得 到 的 解 是 一 样 的 .为 了 得 到 热流 @, 我 们 用 (14.4) 


> Q := simplify(-4*Pi*r~2*+k#diff(T(T，Lrl1，T1，r2，T2) ,r)) ; 
亲 运 _4 工 A72 7 (一 TI 十 了 工 2) 


一 ry 十 72 
再 次 得 到 与 第 一 种 方法 一 样 的 结果 . 
14.2.3 MAPLE 绘图 
现在 对 给 定 的 球 壳 的 热 导 系数 已 内 外 半径 mm 和 rz, 以 及 温度 五 和 三 个 不 同 的 玖 值 ， 我 们 作 
图 表示 温度 的 分 布 卫 = 了 (ririTiraz,7T2), 画 出 热流 @. 令 : 
大 = 12[Tm 一天 ]， 厂 = 400[ 五 ]， 72 = 300, 200, 100[ 天 ]， rl 一 0.1[mm]， r2 一 0.4[mm]. 


我 们 利用 在 14.2.1 节 中 给 出 的 表达 式 计 算 一 般 的 解析 解 . 我 们 将 取 定 , 嫉 , ri 和 ra 的 值 ， 并 在 一 
个 循环 中 计算 出 三 条 曲线 ， 最 后 在 一 个 图 中 绘 出 三 条 曲线 . 下 面 是 进行 这 项 工作 的 完整 的 程序 : 


> ITrl :=0.1: TL := 400: Tr2 :=0.4: KK := 12: 
> TISs := Li100，200，300] : 
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> for T2 in TIsS do; 

TPl[LT2]j := TCT) ; 

> Qp1L[LT2] := evalf(Q) ; 

> 0d: 

> plot({fseq(TP1[T2] ，T2 = TTSs) 上 ，r = 1..r2) ; 


图 14.2 温度 分 布 


400 
T 
350 
T2 = 300,D ss 2010.619299 
200 
250 
T2 = 200,O = 4021.238597 
200 


T2 = 100, 品 = 6031.857896 





14.3 在 田野 上 的 非 定 态 热流 


考虑 一 个 被 太阳 了 晒 得 变 热 的 田 骑 . 假设 田野 上 初始 的 温度 分 布 由 77 给 定 ， 并 且 田 野 表 面 的 温 
度 是 常数 Ts( 见 图 14.3). 设 太 > 0 是 田野 的 热 导 系数 . 将 被 确定 的 非 定 态 温度 分 布 是 田野 深度 z 和 
时 间 了 二 的 函数 . 

设 zy,， 2z 是 欧 氏 空间 的 坐标 . 令 原 点 在 田野 表面 ， z 轴 正 向 指向 田野 内 部 .于 是 温度 了 = 
T(z,y2t 是 田野 内 部 点 (z,y,z) 和 时 间 上 的 函数 ， 由 对 称 性 和 边界 条 件 ， 对 所 有 在 平面 z = c， 
0<c<dnraoz 上 的 点 (zy z), Try zt = const(t), 其 中 dwrnaoz 是 田野 的 最 大 深度 因此， 我 们 可 
将 工 =T(z, 妈 看 作 两 个 变量 zx 和 上 的 苑 数 . 众所周知 ， 温 度 分 布下 =T(z, 是 热 方程 的 解 上 出. 

2 
间 (14.12) 
其 中 记 a2 一 大 . 
我 们 要 求 (14.12) 形 如 Yu) 的 单个 变量 凿 的 解 ， 


V(u) 一 了 (四 (14.13) 
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图 14.3 田野 的 边界 和 初始 化 条 件 
At 











其 T(X,O) 二 Tf 


其 中 





下 三 和 (25 夫 二 (14.14) 


代 
2av 
方程 (14.14) 用 一 个 变量 代替 两 个 变量 > 和 t 这 个 替换 将 偏 微分 方程 (14.12) 转 为 一 个 二 阶 常 
微分 方程 . 这 个 想法 可 在 MAPLE 中 实现 ; 

是 TesStart ; 

> Subs := u = X/(2*#akSsqIt (七 ) ) : 

> TIx,t):=V(rhs(Subsy) ) ; 


Te 一 VGN) 
> ed := a"2*yrdiff(TCX, 七 ) ，X，X) = 和 七 ) ， 妃 ) ; 
DD(2))(Y)( = ] DY 
二 狼 )( 二 (7)(G 二 7)z 
4 -5 2 
> eq := subs(x = Solve(Subs，xX)，eq)*t*#4; 
eg := (DO)(Y)(u) = -2D(Y)(e)v 
这 样 我 们 获得 了 一 个 二 阶 常 微分 方程 
2 
一 一 -2uS ee ， (14.15) 


利用 所 凶 = 太 可 手工 将 其 解 出 . 


六 
2 时 = 一 2w 
守 = 一 2wdvw 可 以 积分 


和 三 Ce 
Yo) 一 Ca 太 e-P dp 十 C2. 


im = 一 vi 十 CY 
dV(u) = Cie-* du 


由 
本 呈 呈 | 
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图 14.4 深度 为 0.0,0.01,0.05,0.1,0.2 和 0.3|m] 的 温度 场 


田 晓 妇 而 ,xsOerm 


站 二 多 


X 到 TO 台 


298.5 


由 MAPLE 得 到 的 (14.15) 的 解 是 
> Sol := dsolve(eq，V(uj) ; 
Sol :一 V(U) = -CI 十 -C2 erf(u) 
正如 我 们 所 看 到 的 ，MAPLE 能 够 解 这 个 方程 . 两 个 解 是 相同 的 ， 因 为 erf (ua) (Gauss 或 误差 本 数 ) 
被 定义 为 
2 2 
erj 四 = 天 e- 纺 dy (14.16) 
0 


> T := unapply(rhs(subs(u=rhs(Subs) ,Sol))，x， 蕊 ) ; 
1 DZ 
人 :一 (z， t) 一 CI 十 _C2 erf( 7 | 
图 初 信条 件 和 边界 条 件 ( 见 图 14.3) 确定 常数 -C1 和 -C2. 我 们 规定 边界 条 件 为 了 (0, 引 = mo 7T(z)b) 
= Ts 初始 条 件 为 Tz,0) = lims-o Tc = TIT7， 即 当 寺 = 0 寺 整 个 鳃 野 的 温度 是 常数 77.， 在 
MAPLE 中 我 们 假设 ac 之 0 和 zy>0. 


> asgume(a >= 0): assume(Xx >= 0) : 
> BounCon := Ts = imit(T4x,t)，X = 0，Tight) ; 


Dou7rCof :一 Ts 一 -CI 


> InpiCcon := TfE = 1imit(TX，t)， 二 = 0D，Iight) 3 


JpzComn :一 7 一 -CI 十 -C2 
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图 14.5 温度 场 作 为 深度 和 时 间 的 函数 





> Sol := solve({IniCcon，BounCon}，{_C1，_C2+7) ; 
595ol :一 {-CI = Ts,， -CC2 = 了 77 一 了 Ts} 


> assign(So]1) ; 
> 工 (X5 


1 7Z- 
了 5 十 (了 FF 一 7sjerf(5 二 
> evalb(difft(T(x,t) ,x,x) - diff(T(x,t)，t)Va ”2=0) ; 


t7e 


重新 绘制 后 ， 获 得 最 后 的 形式 


2(Tr 一 思 ) /2 
Te 朋 = 7 人 e-P dp 十 全 . 


14.3.1 MAPLE 给 


让 我 们 计算 并 绘制 出 田野 内 的 温度 分 布 ， 它 的 最 大 深度 为 dmnaz = 0.5[m], 热传导 系数 为 上 = 
a2 = 0.003[m2?s-!]， 太 阳 照 炊 了 半 小 时 4 = 1800[sj, 在 这 段 时 间 内 田野 的 表面 温度 变 为 Ts。 = 
300[K]. 田野 的 最 初 温度 为 Ty 三 285[ 天 |]. 


> Ts := 300: TtE := 285: aa := sqrt(0.003) : 
DVEC := [0，0.01，0.05，0.1，0.2，0.3] : 
for d in DVEC do Ta[dj := T(d，t) od: 
plot({seq(CTd[dlj ，Q = DVEC)} ,七 = 0..1800，298..300) ; 
Plot3d(T(x，t)，x= 0..0.5, 七 = 0..1800， 

axes = boxed，orientation = [-50，50]) ; 


VVVMVV 
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JJ Bucphar and 了 rebtceK 


贯穿 现象 在 许多 领域 内 都 是 令 人 感 兴趣 的 课题 (参见 [3]). 它们 常常 与 核 废 料 的 保存 ， 保 护 太 
空 船 或 卫星 免 遭 碎片 和 陨石 撞击 等 问题 有 关 . 贯穿 (penetration) 的 正式 定义 为 发 射 物 穿 入 目标 但 
非 全 部 穿 过 ， 贯 穿 现 象 可 以 由 撞击 的 角度 ， 目 标 和 发 射 物 的 几何 与 材料 的 特征 ， 以 及 撞击 速度 描 
述 . 在 这 一 章 我 们 只 考虑 通常 发 生 的 一 根 长 棒 对 一 个 半 无 界 目标 的 撞击 . 这 个 模型 可 以 描述 ， 例 
如 ， 一 个 很 厚 的 铁甲 被 一 个 高 能 发 射 物 贯 穿 . 解决 这 个 问题 的 最 有 效 的 办 法 是 用 有 限 元 方法 作 数 
值 模拟 .许多 有 限 元 计算 程序 能 够 处 理 非常 复杂 的 材料 结构 关系 . 这 些 程序 是 很 昂贵 的 ， 且 需要 
大 量 的 运行 时 间 . 这 也 就 是 为 什么 简单 的 一 维 理论 仍然 具有 相当 价值 的 主要 原因 .这样 的 理论 也 
有 助 于 了 解 物 理 参 数 和 它们 有 关 的 结果 之 间 的 相互 关系 . 这 些 相 互 关系 通常 难以 从 上 面 提 到 的 计 
算 分 析 中 确定 . 因此 ， 简 单 的 理论 常常 为 实验 的 设计 提供 了 基础 ， 使 得 有 限 元 方法 的 数值 模拟 成 
为 可 行 . 按 这 个 设想 ， 我 们 将 研究 某 些 用 MAPLE 处 理 的 贯穿 模型 . 


图 15.1 骨 时 冲击 状态 的 波形 





15.2 贯穿 理论 的 简短 描述 


研究 贯穿 现象 的 文献 很 多 ， 尽 管 它 的 第 一 个 模型 是 60 年 代 才 建立 的 [8]. 对 一 个 半 无 界 且 标的 
贯穿 模型 由 下 面 四 条 规则 构成 ; 
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1. 瞬时 冲击 规则 :， 在 初始 接触 时 ， 冲 击 波 在 目标 和 发 射 物 中 产生 ， 图 象 显 示 在 图 15.1 中 材料 

的 反应 主要 由 它 的 可 压缩 性 和 密度 确定 . 冲击 压力 通常 很 大 ， 足 以 引起 广泛 的 塑性 流 ， 溶 化 

和 蒸发 . 

2. 定 态 规则 : 在 贯穿 期 间 内 发 射 物 腐蚀 ， 同 时 形成 空 从 ， 这 个 阶段 通常 由 一 个 改进 的 Bernoulli 

方程 的 述 . 

3. 空 穴 规则 在 发 射 物 完全 耗竭 后 ， 空 穴 继 续 扩大 ， 这 是 由 于 它 自 身 的 惯性 和 在 且 标 压力 下 材 

料 强 度 减 小 时 获得 的 能 量 ， 强度 的 减 小 是 多 次 波 反 射 的 结果 [9]. 

4. 恢复 规则 ， 空 穴 尺 度 的 略微 减 小 是 由 于 弹性 的 反弹 作用 .这 种 反弹 也 许 会 产生 高 度 的 张力 压 

强 而 引起 断裂 ， 正 如 对 恢复 的 目标 党 第 能 观察 到 的 那样 [5. 

这 个 模型 的 主要 特征 已 靠 计算 证 实 [11]. 数值 模拟 导致 了 对 贯穿 过 程 的 最 复杂 的 分 析 . 模拟 是 
十 分 遇 贵 的 ， 因 为 它 需 要 花 许多 小 时 的 CPU 时 间 . 这 个 程序 即 不 便于 计算 一 系列 的 冲击 实验 ， 也 
不 便于 深入 研究 在 介绍 中 提 到 的 贯穿 特征 ， 这 些 事 实 强烈 地 激励 发 展 贯 穿 过 程 的 新 解析 模型 . 关 
于 贯穿 有 许多 解析 模型 ， 见 综述 [3]. 应 用 最 广泛 的 是 一 维 模型 ， 称 为 Tate 模型 [10], 虽然 它 也 曾 
由 Alekseevskii[1] 独立 地 提出 . 这 个 模型 被 看 作 是 厚 目标 被 长 棒 贯 穿 的 标准 模型 ， 它 的 主要 特征 在 
下 面 几 节 阐 述 . 


15.3 Tate-Alekseevsklli 模型 


这 个 模型 假设 发 射 物 是 坚硬 的 ， 只 在 发 射 物 与 目标 接触 的 很 薄 区 域内 发 生 腐 蚀 . 这 个 区 域 没 
有 空间 尺度 ， 只 包含 目标 与 发 射 物 的 表面 . 这 个 表面 的 变化 由 一 个 改进 的 Bernoulli 方程 摘 述 


1 1 
5pp(u 一 十 区 一 了 ptu 十 羽 (15.1) 


其 中 pp 和 Am 分 别 是 发 射 物 和 目标 的 密度 ，v 是 发 射 物 尾部 的 速度 ， 是 贯穿 的 速度 . zo 是 发 
射 物 的 强度 ， 尽 : 是 一 维 形 式 的 目标 阻力 . 

穿 入 的 发 射 物 被 沿 着 发 射 物 长 度 方向 接触 的 表面 传递 来 的 力 阻 挡 而 减速 . 减速 度 由 
守 = 一 防 (15.2) 
给 出 ， 其 中 ! = !(t) 是 发 射 物 的 现时 长 度 . 由 于 腐蚀 作用 ， 棒 的 长 度 变化 由 棒 的 未 形变 部 分 的 运动 
牛顿 方程 给 出 


pp! 


> 一 (5 一 乙 ). 〈15.3) 
方程 (15.1)-(15.3) 是 关于 未 知 函 数 ! = !(,v=v(t 和 = 的 方程 组 ， 带 初始 条 件 
(0) 一 v0， LO0) 一 忆 ， (15.4) 
其 中 wo 是 冲击 速度 ， 工 是 发 射 物 的 初始 长 度 ， 贯穿 速度 可 以 从 方程 (15.1) 获得 : 
> # Bernoulli equatioDn 
> eq := (1/2)*rho[P]*(v-u) ”~2+Yp=(1/2)*rho[t]j*u~2+Rt : 
> Pen := Solve(eq，U) ; 


下 12ppv 十 2vV2ppRt 一 2ppyp 二 pppo 一 2ptRt+2p yp 
2 人 


pp 一 Ai 
12ppv 一 2 2ppRt 一 2ppyp+pppo 一 2ptRt+20tYp 
2 pp 一 At 
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> # We 上 take the Second SolLution 
> # because of u“V and SimpJLity it 
> uv[li] := simplify(GpenL2]) : 


对 具 相 同 密度 的 发 射 物 和 目标 ， 即 pp = pt, 芭 值 可 如 下 计算 
> Simplify(series(u_v[1] ,zho [P]=rho [tj) ,symbolicy) : 


> uv[2] := subs({rho [t]=rho ,rho [P]=rho} ,op(1，")) ; 


1 po2 一 2Rt 二 27Yp 
V_uU2 :一 二 一 -一 一 
2 PT 


于 是 ， 对 pp 关 pt, 贯穿 速度 为 


有 2(0R 一 Yp)(pop 一 pt) 十 ppptu” 


15.5 
pp 一 A ) 
而 对 pp = pb 
pv 十 2( 芭 一 玉 ) 
四 生 (15.6) 
将 (15.2) 代入 (15.3) 得 
dl io)opte 一 要 
元 = 和 E (15.7) 
用 MAPLE 求 微分 方程 (15.7) 具 初 值 !(wo) = 工 的 解 
> # Definition of initial Value PToblem 
> deq := diff(L(v) ，v)=1LI(Cv)*rho[P]*(Cv-uGCv))VYP : 
> incond := L(Cv0) = 工 : 
> len[1] := simplify (rhs (dsolve({fdeq，incond}，1Cv)) 7) ) ; 
( 广 2 
lenl :一 e 也 
得 到 发 射 物 现 有 长 度 1 当 发 射 物 密度 与 目标 密度 相同 ， 即 pp = p: 时 ， 此 式 可 简化 : 
> ， subs (u=unapply(u_v[2] ,v) ,{fzrho [P]=rho ,zho[t]= rho} ,len[1i]) : 
> len[2] := simplify (expand (")) ; 
Jen2 := e(LV4 人 人 0 7 
在 时 刻 了 工 棒 的 贯穿 深度 pe 为 
pe = 人 Ltdt. (15.8) 
0 
由 (15.2) 得 
pp 广 ” 
De 一 一 ztdv. 15.9 
二 (15.9) 
将 关于 (wu) 和 !(u) 的 式 子 代入 方程 (15.9), 我 们 得 到 通常 的 贯穿 方程 
克 二 下 (0 忆 t YYp， pt， pp). (15.10) 


一 般 上 面 的 积分 不 能 被 解析 地 求解 ， 但 我 们 将 在 下 一 节 对 特别 的 参数 值 给 出 (15.10) 解 的 精确 解 . 
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15.3.1 特殊 情况 己 , = zz 
对 相同 的 目标 阻力 媚 : 和 发 射 物 的 强度 区 , 我们 计算 limnr--o p(T). 显然 工 一 co 对 应 v 一 0. 


u_v[3] := simplify (subs(Rt=YP，u_v[1])，symbolic) : 
subs (u=unapplLy(u_v[3] ,v) ,len[1]) : 

1 := simplify("，Ssymbolic): 

pe := simplify(int(1*ru_v[3] ，v=0..v0) ) : 


标准 化 的 贯穿 深度 pe/ 忆 为 


_ /FTDeyu2 
2 Jp (pp 一 (op 一 VPpPi 1 “| (15.11) 
了 ”pp (ps 一 V508) 


对 pp=AP=p, 方 程 (15.11) 可 被 简化 
> Simplify(1Limit(Pe ,rho[t]=rhoftp]j) ,symbolic) : 


这 样 我 们 得 到 


MY VV V 


2 


李 环 


地 过 0 一 er)， (15.12) 


15.3.2 特殊 情况 pp 一 Ai 三 1 


对 相同 的 贯穿 物 密 度 和 目标 密度 ， 我 们 分 下 面 几 种 情况 . 
情况 1 屎 > 区 .根据 (15.1), 仅 当 


ppog 十 区 > 忌 (15.13) 
时 贯穿 发 生 ， 当 RR, = my 时 ， 速 度 u 在 wo 与 wm 之 间 ， 其 中 
1 一 2m 二 Drzp (15.14) 
Ap 


标准 化 的 贯穿 深度 可 如 下 确定 : 


> vm := Sqrt(2*(m-1t1)*Yp/rho) : 
> simplify (subs(Rt=m*#*Yp, LIen[2]*xu_v[2]7)) : 
> pe := (rho/YP)*int("，Vv=vmn..VO) : 


它 可 被 整齐 地 写作 
_ 尘 广 。 _ ee -3 + 册 人 二 22 - 2m 苞 )( 一 )”uo-2du 
0 


对 meN, 上 面 表 达 式 可 以 进一步 简化 ， 例 如 pl 和 ps: 
> pel := Simplify(eval(subs (m=1，Ppe)y)) ; 
pel := 一 元 (一 1 十 e(-1/4 人 沈 -)) 


> pe3 := simplify(eval(subs (m=3，Pe) ) ) ; 
7(v02p 一 8Jp 十 4Jpe0V -9 


本 
DUO0? 
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情况 2: 已 < 隐 . 由 不 等 式 


| 

二 元 空 之 Ptu 十 已 汪 也 一 270， (15.15) 
2 

本 居 了 AL 十 妨 ，， 当 2 < 20 (15.16 ) 


描述 了 两 个 不 同 的 贯穿 过 程 的 速度 规则 ， 如 果 (15.15) 成 立 ， 棒 象 一 个 坚硬 物体 以 撞击 速度 vo 贯 
穿 . 对 极限 速度 
ul 一 2 (15.17) 
A 
(15.15) 中 等 式 成 立 . 对 vuo < wb 在 棒 尖 端的 减速 压力 为 已 = iptug 十 鼠 . 将 压力 已 代入 方程 (15.2) 
我 们 得 到 


d 1 
pp 二 二 一 (了 ptwo 十 环 t). 〈15.18) 
在 v 与 零 速 度 之 间 积 分 得 
汪 一 二 ( 站 六 mn 二 ee2o )， (15.19) 


2 民 ， 
对 vo > w, 通过 对 (15.9) 从 vuo 到 w 的 积分 得 到 贯穿 深度 pj. 总 的 贯穿 为 


pe 一 Dr 十 2D1f (15.20) 


贯穿 理论 的 基本 方程 (15.1)-(15.3) 是 非 线性 的 . 通常 它们 的 解 只 能 由 数值 计算 .MAPLE 使 我 们 能 
够 获得 一 个 级 数 形式 的 逼近 解 . 在 [中 的 详细 分 析 表 明 ， 用 一 个 5. 阶 多 项 式 wapzpr 逼近 贯穿 速 
度 忌 就 足 驶 了 . 


> TeStart : 

> # BernoullLi equation for same densities Iho=Trho [tj]=rho [Pj 

> eqe := (1/2)*rho*r (VCt)-uU) “2+YP=(1/2)*Tho*ru ”2+Rt : 

> := Solve(eqe, ua) : 

> deqel := Tho*l(t)*diff(v(t) ，t)=-YP: 

> deqe2 := diff(1L(t) ，t)=-(Vv(E)-D) : 

> incond := TI(O)=L，V(O)=vO : 

> sol := dsolve({fdeqel，deqe2，incond}+，{1LCt)，vCt)} 上 ，series) : 
> # Polynomial apProximation of vt) and 工 (七 ) 

> V := op(2,op(select(x->op(1,x)=IV(Ct) ,sol))) : 

> 1 := op(2,op(select(x->op(1,x)=:1I(t)，,sol))) : 

> # Polynomial apProximation of (tt) 

> uappr := convert(sSeries(V/2+(YP-RLt)/ (rho*v) ,t=0,6) ,Polynomy) : 
> # 了 了 irst few coeffticients of uapPTr 

> Series(uapPr ,t=0 ,2) ; 

1 yp (一 到 十 已 1) YYP 


5 3 
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我 们 将 这 个 模型 用 于 下 面 的 例子 . 


rho := 7810: # TIarget and PenetTrator density 
L := 0.25: # Length of rod 
# Target Teslistance Rt = 900*r10 6 
# Strength of Projectile YP = 900*10”6 
u := Subs(Rt=900*10”`6,Yp=900*ti0”6,uappr) : 
PlLot3d(tu,t=0..0.0004,vO=1000. .2500， 
axeS=boxed ,orientation=[-30,60] ) ; 


MYVVMMVV V 


其 中 参数 取 自 射击 No.B19, 见 [和 : p = p: = pp = 7810[Kgm-3], 了 一 0.25[m], 已 = 了 =9.105[Nrn 一 ?]. 
计算 结果 (展示 在 图 15.2 中 ) 与 用 有 限 元 程序 AUTODYN 2D 得 到 的 二 维 数值 模拟 的 结果 进行 了 
比较 . 在 [外 中 证 实 这 些 结 果 基 本 一 致 : 下 面 的 贯穿 模型 考虑 了 在 棒 顶 部 的 腐蚀 过 程 . 


图 15.2 贯穿 速度 随时 间 和 撞击 速度 vo 变化 情况 


贯穿 速度 [em 





15.4 腐蚀 棒 的 贯穿 模型 


假设 一 根 初 始 截面 积 为 4r, 直径 为 dr, 长度 为 jp 的 圆柱 棒 以 速度 wo 撞击 半 无 界 的 目标 ( 见 图 
15.3). 目标 由 强度 为 区, 密度 为 Pr 的 材料 制 成 ， 棒 的 强度 为 区, 密度 为 pp. 实验 表明 在 贯穿 期 间 
棒 被 腐蚀 .这 个 腐蚀 过 程 出 现在 棒 的 顶端 ， 使 得 棒 的 初始 质量 mp = pp4pfp 减 小 ， 还 减 小 了 棒 的 
长 度 jp. 单位 时 间 内 失去 的 棒 质 量 为 

人 一 pp4p1， 


其 中 mm 志和) 是 棒 的 瞬时 质量 和 长 度 ， 点 表示 对 时 间 上 上 的 微分 . 因 冰 < 0, 用 符号 mp = | 人 o| 是 


方便 的 ， 即 
和 (15.21) 
pp4p 


设 5 是 在 时 刻 守 棒 中 心 的 位 置 ， 即 棒 的 顶部 Pi) 与 尾部 已 均 之 间 的 中 点 .我们 忽略 棒 撞 击 时 








176 JJ. Buchpar a7zd 沁 厂 rebrceK 


图 15.3 贯穿 过 程 








ES Re (15.22) 
1 7 
玉 = 9 一 9 十 5 全 (15.23) 
考虑 棒 顶 部 的 情况 .质量 Am 被 丢失 ， 而 棒 中 心 (质量 的 中 心 ) 的 速度 变 为 9 + AS. 动量 守恒 为 
[(m - Amp)(S+Ao)+PAmp] 一 m9 = 一 FA (15.24) 
其 中 下 是 由 目标 阻碍 棒 的 运动 产生 的 力 . 对 At 一 0 取 极 限 ， 由 方程 (15.24) 得 
本 (3 一己)m 一 已 (15.25) 
dt 
将 方程 (15.22) 代入 (15.25) 我 们 得 到 
mm 实 一 apyj2 一 卫 ， 其 中 记 ap 一 5 
在 [7] 中 证 明了 互 可 以 表达 成 
瓦 =a 十 DP2. (15.26) 


常数 a = 38 4 依赖 目标 强度 . 这 表明 目标 在 受 发 射 物 撞击 时 立即 抵抗 ， 发 射 物 顶 部 暂停 了 一 定 
的 时 间 [6j. 第 二 项 是 单位 体积 的 动能 或 单位 面积 的 力 ， 即 = pi4p/2. 
棒 的 腐蚀 可 以 描述 为 ( 见 加)， 
总 一 一 Ap0 己 (15.27) 


7 一 /ip 已 ， (15.28) 
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其 中 和 为 未 知 参 数 . 因为 在 上 = 0 时 贯穿 的 深度 已 罗 为 零 ， 即 P(0) = 0, 微分 方程 (15.27) 的 解 为 


ma 人 (t) 一 In0p 一 Hp 三 (区 (15.29) 
设 书 是 棒 项 部 的 最 终 贯 穿 深度 ， nr 是 在 tr 贯穿 完成 时 棒 的 剩余 质量 . 参数 Up 取 值 
0 
= 记号 (15.30) 
因此 jpp 的 最 大 值 为 Unaz = rmp/Pr. 将 方程 (15.28) 代入 (15.22), 我 们 得 
9 一 (1 十 Hppap) 书 一 大 忆 ,其 中 有 = kf(Hp) 一 1 十 Hpap. (15.31) 


利用 方程 (15.26), (15.28), (15.29) 和 (15.31), 方程 (15.25) 可 改写 成 


(rzp 一 jpP)ES = 一-(a+cP2?)， 其 中 ec=e()=5 一 Qp12， (15.32) 

微分 方程 (15.32) 关于 初始 条 件 
P(0) = 0， (15.33) 
忆 (0) = wp， (15.34) 


的 解 给 出 了 贯穿 深度 对 时 间 的 依赖 关系 已 = 三 ( 雪 . 根 据 Tate 理论 [6], 在 (15.34) 中 的 初始 贯穿 速 
度 vp 被 确定 为 


un 一 忆 二 (15.35) 
因为 我 们 不 能 由 实验 测量 己 蚊 , 所 以 必须 寻找 方程 (15.32) 的 某 些 特征 . 如 果 我 们 考虑 到 
ap _ dpPap 
dt  dPdi 


则 方程 (15.32) 可 转化 为 
2 
a+cP2 dP mnp-Hp 忆 ， 





带 初 始 条 件 (15.34). 
用 MAPLE 可 以 解 上 面 的 初 值 问题 . 


> “Testart ; 





> de := -k*DP(P)*diff(DP(P)，P)/(a + ckDP(P)~2) =1/(mp - mu*P) ; 
_KDP(P) (就 DP(P)) 1 
Q& 十 CDP( 己 )? pp 一 用 己 


> ic := DP(O) = vPp: 
> Pen := dsolve({fde,ic},DP(P)); 





lntrmp 一 哺 五 ) c 

c | 一 Q 十 人 加 (a 十 vp”c) 
(mptzE))2 

pen := DP(LP) = RE 











人 2 一 P) <) 攻 证 2 
C_ | 一 Q& 十 一 一 一 一 一 一 


(mp 


DP(P) = 一 


CC 
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> Sol := op(2,pen[2] ) ; 





1]nfynp 一 上 天 ) c 
c | 一 Q 十 多 ， (ca 十 zP” ec) 
(mp 


So :一 一 


> Soll := Subs(2*c/(mu*rk)=1/e ,sol) ; 








1nfrnp 一 此 安 
C RE 5 全 ) (a 十 yp2c) 
(rnp(zK))2 


尼 


solf1i :一 一 


> |a C 凡 
一 网 (a 二 2 江 工 二 人 一 


其 中 
Hp 天 


E 一 ELHp) 一 上 


是 较 小 的 腐蚀 率 . 
当 射 入 一 个 半 无 界 目标 时 ， 在 杂 时 刻 书 = 0, 由 (15.36) 得 


三 一 人 《 ( 芋 十 So _ 


Hp 
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(15.36) 


(15.37) 


对 参数 pp 的 计算 ， 方 程 (15.37) 比 (15.30) 更 适用 ， 因 为 难以 确定 剩余 棒 的 质量 mm fj. 而 在 每 次 最 


后 的 发 射 实验 中 数据 [Py,wo] 是 可 以 得 到 的 . 
模拟 发 射 实验 包含 如 下 步骤 : 


1. 确定 参数 上 . 如 果 在 这 一 章 提供 的 贯穿 理论 正确 , 则 对 每 组 棒 和 目标 的 材料 组 合 jp 应 该 是 常 
数 ， 不 依赖 撞击 速度 vo. 我 们 将 用 MAPLE 解 方程 (15.37) 求 pp 的 数值 解 ， 并 估计 当 Hp 一 0 
时 (15.37) 的 极限 . 这 个 极限 对 应 于 一 个 硬 发 射 物 的 贯穿 . 我 们 将 定义 Rec 和 e 为 变量 A 的 函 


数 . PP 也 被 定义 为 岂 的 琐 数 .我 们 将 方程 Pr(A) = Pr 的 解 记 为 jz 


2. 计算 速度 已, 它 沿 贯 穿 路 径 Pe [0,P/] 是 书 的 函数 . 


3. 为 了 求 得 函数 P(t) 及 它 的 图 形 ， 求 解 初 值 问题 (15.32)，(15.33) 和 (15.34) 
4. 研究 目标 的 强度 妈 对 在 1-3 中 确定 的 参数 和 丽 数 的 影响 值 区 可 能 受到 张力 的 影响 ， 它 党 


利 总 于 由 传统 材料 试验 所 得 到 的 值 . 


15.5 数值 实验 


我 们 将 用 MAPLE 解 一 个 具体 的 问题 . 考虑 下 面 J. Buchar {4] 的 射击 No，C06 的 实验 数据 . 
mp 一 1.491[Egj，vo = 1457.9[ms-]， po = pp = 7810[kgm-3]，d = 0.0242|mm], 到 = 9.7 .108[Nrm-?]， 


区 三 15.81.103[N 一 ]，Pr = 0.245[mm]. 


我 们 用 MAPLE 解 上 面 的 例子 ， 并 进行 弹道 实验 分 析 的 四 个 步骤 . 第 一 步 我 们 求 几 , 然后 绘图 
15.4，Prtb) 在 区 间 [0,wrnaz] 上 的 图 . 第 二 步 我 们 绘 出 图 15.5, 贯穿 速度 已 作为 书 的 函数 的 图 ， 并 
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黄 罕 深度 fml 


15.4 /对 贯穿 深度 的 影响 





15.5 贯穿 速度 对 深度 的 依赖 关系 
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15.6 深度 对 时 间 的 依赖 关系 


六 


8 
wol 基 波 老 阁 


时 间 Im "96 


0.1 0.2 0.3 0D.4 D.5 


0.0 


图 15.7 目标 强度 和 冲击 速度 的 影响 
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确定 参数 hp, 见 (15.37). 第 三 步 我 们 将 求 上 面 的 初 值 问 题 的 数值 解 ， 并 绘图 15.6, 解 Pb) 在 区 间 
(0, 好 7) 上 的 图 ，t = 0.0006. 第 四 步 我 们 将 绘图 15.7, 贯穿 深度 作为 史 和 wo 的 困 数 的 图 . 


YYMYMVMYMMYMVMYMVMMYMVMVYMVMYMVYMMYMVYVYMYVMVVMYVYMVMYMVMVMVMYMYMVYMMMYMVMMYMMYMMYMVMYMVMYMVYMMYMMYMVYMVMVMMMVYWV YV 


# Projectile and target data and the final PenetIation depth 
rho[t] := 7810: mp := 1.491: YLt := 9.70*+10”8: 
rho [p] rho[t]j: dp := 0.0242: YP := 15.81*l0”8: 
AP := Piyrdp”2/4: vv0O := 1457 .9: 
Pt := 0.245: 


# 1st Step ~ Determination of mup and graph PenetTration depth 
# VS erosion rate mu，the definition of constantsSs ap，a，b 
# and initial PenetTation Velocity 
ap := 1/(2*rho[P]j*Ap): aa := 3*+Yt*#rAp : 
b := rho[t]j*Ap/2: vvp := v0O/2+(YL-YP)/(Crho [t]*xvO) : 
# The definition of functions K，CcC，eps and PE of mu 
X := mu 一 >1l+ap*xrmnu: <c := mu->b-ap+rmnu 2 : 
eps := mu->mu#kk(mu)/(2*c(mu) ) : 
Pf := mu->mp*(1~(t+c(mu)*vp”2/a) ”~(-eps (mua) ) )Vma: 
# -~- Graph of influence of mu on the Penetration depth 
Plot(Pf (nu) ,mu=0. .6) ; 
# _ Determination of imit 
Pfzero := 1imit(Pf (nu) ,ma=0) : 
# Solution of the equation Pf(mu)=pT 
mup := fsolve(Pf (nu)=pf ,muy) : 


2nd step -~ Graph of the PenetTration Velocity 
alLong 上 he PenetTration Path 
P -> sqrt(ak((1 + c(mup)*VvPp>”2/a) 

(1 - mup*P/mp)”(t/eps(mup)) - 1)VcGCmup)) : 
plot(dP(P) ,P=0. .pf); 


dP 


# 3rd step - Graph of the time dependence of the PenetTrat1jioDn 
0.0006 : 

# TIhe evaluation of the 了 忆 Iime daependence 

# of the PenetIration and ilits Velocity 
deq := (mp - mup*p(t))*(naup)*diff(P(t)， 七 ,七 ) = 

~(a + cmnup)*dqiff(Pp(t) ,七 )~2) : 

incond := P(0) = 0，D(P) (0) = vP: 
F := dsolve({fdeq，incond}+，P(t) ，numeric) : 
Plots [odeplot](FE，[t，PpCt)]，0..tf); 


七 王 


# 4th step -~ TIhe evaluation of the Influence 
# of target Strength and Impact Velocity 
vpi := (vi,y) -> ViV2 + (yy - YP)V(rho[t]j*rviy) : 
Gepth := 《vi,y) -> 
mp*(1 -~-〈1 + ck(mup)*vplCvi,y) ”2/a) ~(-eps (nup)7)V/mup: 
opt := orientation=[~-145,60] ，axes=boxed : 
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> Plot3d(depth(vi,y) ,vi=1l400..2200,y=900*10-6. .2000*10*6,opt) ; 


15.6 结论 


上 面 所 展示 的 由 MAPLE 表示 的 符号 运算 方法 对 研究 贯穿 现象 是 非常 有 效 的 . 所 给 的 例子 表明 


MAPLE 有 助 于 解 贯穿 问题 . 描述 的 程序 使 我 们 能 够 估算 目标 和 发 射 物 的 强度 对 贯穿 深度 的 影响 . 
以 前 这 个 问题 是 由 数值 方法 求解 的 . 用 MAPLE 分 析 发 射 物 的 腐蚀 也 非常 容易 ， [4] 中 阅 述 了 这 个 
方法 的 其 它 优点 . 
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玻 色 粒子 系统 的 热 容量 


了 .LOa7ia 


引言 

章 研究 在 接近 绝对 堆 度 的 低温 条 件 下 具有 非 零 质量 的 玻 色 粒子 (例如 He“) 系统 ， 此 时 出 现 
一 种 超 流 性 (或 者 也 出 现 电子 的 超 导 性 ). 

让 我 们 考虑 一 个 由 六 个 无 相互 作用 的 、 具 有 非 霍 质量 mm 的 玻 色 粒子 组 成 的 量子 系统 (粒子 具 

有 整数 自 旋 ). 设 系统 在 容积 Y 的 范围 内 , 与 其 环境 相 平衡 并 具有 绝对 温度 了 T. 那么 能 量 在 fe,e+ dej 

<c) .de 
2 ee [0, oo)， (16.1) 
(16.2) 


区 间 的 粒子 数 平均 值 由 下 列 方程 给 出 由 ,2] 
《nz(e)) de 三 
9g(e) 是 态 密度 ， 在 此 情形 ， 它 由 下 列 方程 


4 
gfe) 一 goY752m23/3 2 
(16.3) 


其 中 \n(e)) 是 粒子 数 的 能 量 密度 ， 


zi/2 .dz 


cl/2de 过 入 oo 1/ 
O 


ee-A)Ae -1 


量 人 = AT VN) 是 化 学 势 ， 其 对 热力 学 参数 (站 几 N) 的 依赖 关系 由 归 一 化 条 件 给 出 
ez 一 Hp/9 一 1 
(16.4) 


给 出 ， 其 中 0 = FT(E 是 Boltzmann 常数 ) 是 统计 温度 . 


了 /oo)ds 全 和 人 
对 玻 色 子 系统 能 够 证 明 AS< 0 而 且 全 =0 时 =0. 但 由 等 式 (16.3) 可 得 ， 对 于 9 = 6 > 0(6。 称 为 
临界 温度 ), = 0. 所 以 ， 对 0=0- 
NM 一 入 60 三 三 二 至 
2 
(16.5) 


25 xX2 一 idr 
(16.6) 


(ws 人 到 


由 黎 曼 5 函数 的 定义 


2 
2 
A 必须 为 零 ， 同 时 ， 归 一 化 条 件 具 有 
(16.7) 


(16.4) 能 够 写成 形式 
N=Ar(3h) 222 人 
对 于 9 < 0。, 我 们 不 得 不 对 系统 使 用 一 个 不 同 的 模型 . 这 时 ， 
全 cs el/2de 
N-N -、/ -5 
其 中 N“” 是 被 “凝结 ”在 单 粒 子 基 态 (e = 0) 的 粒子 个 数 . 这 些 被 凝结 的 粒子 具有 一 种 称 为 超 流 性 


王 述 形式 
的 特殊 行为 . 所 以 人 作为 和 的 函数 具有 两 个 不 同 的 解析 区 域 : 对 于 0<b,4=0, 及 对 于 9 >0c 4 


是 方程 (16.3) 的 一 个 解 . 
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我 们 的 任务 是 找到 这 个 系统 中 温度 与 每 个 粒子 定 容 热 容 C 的 关系 . 由 定义 
9P， ，DP 


“= 南 536 


其 中 书 是 每 个 粒子 内 能 ， 由 下 列 方 程 给 出 


入 Oo 入 Co 13/2dm 
匹 二 六/ ce(m(c))de 一 六 。 加 cz0715 二 了 - 
定义 函数 (通常 称 为 Bose-Einstein 积分 ， 参 见 [2]) 
思 一 1dr 
下 5 六 二 人 2 z 之 0，zZ>0i 
正如 会 看 到 的 ， 瑟 e(0v) = 5(2). 
现在 按 下 列 步 骤 求 解 我 们 的 问题 ， 
1. 计算 几 与 温度 的 关系 : 
对 于 0gO 和 0: 令 人 =0， 
对 于 8 > 9: / 是 方程 (16.3) 和 (16.6) 的 解 


了 3 3 1 3 
NE=A 入 .63/2.F{-1.Cf-1= 入 .93/2.F| 二 |]. ER 
es 






它 导 出 方程 
利用 无 量 纲 变 量 


可 把 前 面 的 方程 转换 成 正则 形式 . 这 样 方 程 (16.12) 变 成 
下 5 (- 符 ， 让) - 和 2 


2 2 5 





2. 计算 每 个 粒子 的 能 量 ， 由 (16.9) 也 用 到 〈16.6)) 可 得 


本 bp<46。 
”了 T( 盈 62 (5( 有 放 丽 。(- 允 肥 6 


使 用 无 量 纲 量 eu = 思 /6。 代替 瓦 , 我 们 能 够 把 (16.14) 重 写 为 
It2) . 师 { 笔 y<1 


了 


其 中 z = -Ha/y 是 方程 (16.13) 的 解 


3 3 
23/2 了 be 必 洁 一 《 ( 引 ， 


天” dy 


|V 
SN 








3. 计算 以 有 为 单位 的 热 容 


五 . 玫 Iuayia 


(16.8) 


(16.9) 


(16.10) 


(16.11) 


(16.12) 


(16.13) 


(16.14) 


(16.15) 


(16.16) 


(16.17) 


我 们 注意 到 ， 当 y >> 1 时 ， 每 个 粒子 能 量 的 表达 式 玉 p = 39/2 成 立 ， 由 此 推 得 c = 3/2. 
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16.2 MAPLE 解法 


求解 我 们 问题 的 关键 是 表示 函数 


ZX 一 Ldz 


1 Ce 
和 be(z)Z) 一 二 人 az+z 了 T， 之 0,7 之 U; (16.18) 


这 个 函数 是 黎 曼 5 函数 的 一 种 推广 并 且 不 能 在 MAPLE 中 执行 ， 因 为 我 们 感 兴趣 的 是 在 低温 条 件 
下 ， 当 z 一 0 时 系统 的 行为 ， 所 以 必须 利用 玉 。 对 z 的 过 级 数 展开 . 

MAPLE 不 能 直接 由 方程 (16.18) 导出 这 个 展开 式 . 因此 ， 我 们 必须 利用 对 vv > 1 的 如 下 展开 
式 〈|[2,3]) 


瑟 e(z,z) 一 2-z) 十 0 (16.19) 


人 一 癌 
它 对 所 有 的 xz > 0 都 收敛 . 我 们 定义 函数 series/Fbe(z,nu,t)( 参 见 算法 16.1), 它 使 用 标准 MAPLE 
图 数 series( 参 见 MAPLE 的 Help) 执行 玉 e(z,m) 的 级 数 展开 对 上 的 求 值 . 


苯 法 16.1 肠 数 机 (zz) 
“series/Fbe'“ := Proc (Zz，Dnu::numeric， 七 ) local DTD; 
# calLculation of Bose-Einsteln:s Integral 
# or Du Donlinteger 
# 1/VGAMMA(Cnu)*int(x~(nu - 1)V/(Ce”(z+X) -1)，x= 0..inf) 
if tyPpe(Gnu，jinteger) or not (nu > 1) then 
ERROR('2-Dnd arg. expected to be noninteger and > 15) ; 
elSe 
# Power expansion in zZ to order 0rder 
series((Z)”~(nu - 1)*GAMMA(1 - nuy) 
+ SUum((-Z) ”nkZeta(nu-n)/nlI,n=0. .0rder -1 ) 
+ 0O(Ct"Order) ,七 ) ; 
fi 
end ; 
第 二 个 问题 是 计算 像 上 6) 或 巨 p(9) 这 样 的 函数 ， 它 们 具有 两 个 不 同 的 解析 区 域 . 物理 学 家 喜 
欢 使 用 一 个 对 象 来 表示 一 个 物理 量 . 所 以 为 了 定义 上 述 量 ， 最 好 的 方法 是 用 矿 - 妨 en - else 语句 
来 定义 函数 ， 例 如 


TF(< relation >,< vtphen >,< Velse > 小 


它 根据 < relatzon > 的 布尔 值 返回 < vthen > 或 < velse > 表达 式 (新 版 MAPLE 将 支持 定义 分 
段 函 数 ). 由 于 我 们 需要 计算 这 个 函数 的 导数 ， 因 此 可 通过 定义 函数 diff/If( 参 见 MAPLE 的 Help) 
来 使 用 标准 函数 diff. 在 算法 16.2 中 定义 了 这 些 函 数 . 

求解 问题 的 第 一 步 是 对 z 求解 方程 (16.16). 在 这 个 方程 中 屎 e(z,3/2) 以 z 的 级 数 形 式 来 表 
示 ， 它 也 包含 z1/2 项 . 但 MAPLE 仅 能 解 纯 守 级 数 的 方程 . 为 此 我 们 作 变 换 z 一 ww2, 然后 对 内 求 


解 变 换 后 的 方程 
y3/2 . 及。 (ee 3 ) =( (下 (16.20) 
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MAPLE 能 够 解 出 这 个 方程 并 以 z = 1- 久 -3/2 的 级 数 形式 给 出 z. 这 样 我 们 能 够 利用 函数 If 把 化 
学 势 ha 表示 成 
TY 0， 一 U 交 2)， 


算法 16.2 函数 If 
# syntax of calling: If(bool,then,else) 


cdiff/If“ := proc(bool，Vvthen，Velse，X) ; 
If (boo1，diff(vthen，X) ，diff(velse，xX)) 
enda : 


If:= proc(boo1l，vthen，Vvelse) 
if type(boo1l，:Trelation:(numeric)) then 
if bool then Vthen elLse Velse ff 
else :If(args)， 
夺 i 


end ; 


16.1 作为 yy=6/0. 数 的 化 学 势必 


0.5 1 1.5 2 2.5 Y 3 


这 个 函数 的 图 像 如 图 16.1. 所 需 的 MAPLE 语句 如 下 : 


> # Basic equation for the chem. Potential mud 
> # for y >= 1; Z = -mud/y 
> Eq := series(Fbe(z，3/2) ，z，4) = y”(-3/2)*Zeta(3/2) ; 


5() 


B9 := (2V3v 和 十 6() 这 z6(5) 十 5 人 6( 二 ) 和 2 5( 卫 ) +Oz )) 一 
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演 # we choose the Substitution 
> # y”(-3/2) -> 1 - X and z-> VW”2 
> # and inveTIt the SeTrles 
> Solw := Solve(series(Fbe(w- 2，3/2)，，7) 
> = (IE -~ X)*Zeta(3/2) ，VwW) : 
> # 七 heDn 
> Z := Series(solw -2，X，4); # because Z = WwW"2 (z = -mu/theta) ; 
3 3 1 
CE) 55 
= < z2 一 三 2 2- z3 + O(z4) 


> Z:= conveIt(Z，PolLynom) : # for next evaluation 、 
# graf of mudq=-Z*y on y 
plot(If(yY <= 1，0，-y*rsubs(X = 1 - y”(-3/2) ，z))，y = 0..3); 


无 量 纲 的 内 能 由 方程 (16.15) 给 出 ， 我 们 能 够 将 其 表示 成 


3 5 5 
Eda 一 25( 引 。 了 了 ( 廊 T,C ( , 忆 be (: 3 (16.21) 


这 里 玉 e(z,5/2) 用 z 表示 ， 而 z 在 前 一 步 已 经 作为 > = 工 - 9 -3/2 的 级 数 被 表示 出 来 . 热 容 e 由 方 
程 (16.17) 给 出 ， 


VM V 


图 16.2 作为 y=0/6. 范 数 的 热 容 c 


0.5 了 1.5 2 2.5 3 


这 个 函数 c(y) 的 图 像 如 图 16.2 所 示 . 我 们 应 该 想到 ， c(y) 的 导数 在 y = 1 点 有 间断 ; 这 表明 
(9 = be) 这 一 点 是 二 阶 的 相 变 点 .MAPLE 程序 的 其 余部 分 如 下 : 
> # calculation of dimensionlesSs internal energy 


> # Per Particle Ed，expansion of Fbe(z,5/2) in y 
> RFy := subs(Gxz = 1 -~- y”"(-3/2) ， 
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> conVvert (seIries (Fbe(z，5/2) ，Xx，4)，Polynom) ) ; 
3 [ 3 3 
人 SS) 
和 
7 4 克 6 区 8 Tr2? 73/3 
> # Using the function If we can exXxpIesS enhergy for a11I y 
> EQqQ := 3/2/Zeta(3/2)*y” 人 (5/2)*IECyY <= 1，Zeta(5/2) ，Fy) : 
> #heat capacity is (in units of KJ) 
> C := qiff(Ed，y) : 
> #and than we make gIaph of heat capacity 
> Plot(C，y = 0..3); 
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第 十 七 章 金属 目 由 挤 庄 加工 


go. 忆 ayto 
17.1 引言 


挤 压 是 金属 成 形 中 广泛 应 用 的 加 工 手 段 . 如 果 挤 压 是 采用 两 块 平面 压板 ( 挤 压 的 一 个 特例 ), 金 
属 的 侧面 将 变形 (参见 图 17.1). 这 种 连续 成 形 操作 叫做 模具 成 形 ， 它 必须 提前 预测 变形 的 程度 ， 以 
便 给 在 特定 模具 中 变形 的 物体 提供 足够 的 空间 本 章 只 讨论 横 截 面 不 变 的 金属 棒 材 ， 因 为 横 堆 面 
变化 的 情况 在 实际 中 不 会 涉及 到 


图 17.1 自由 挤 压 
| 


『1 


本 吧 呈 9 柯 
全 呈 
| | 


我 们 将 在 如 下 假定 下 讨论 被 挤 压 的 物体 : 
1. 物体 体积 站 保持 不 变 





Y 一 90 万 = const.， (17.1) 


此 处 5o = 初始 底部 面积 ， 互 = 棒 材 的 初始 高 度 . 

2. 初始 的 棒 材 用 柱 坐 标 描述 . 棒 材 的 长 度 方 同 平行 于 z 轴 ， 坐 标 系 的 原点 在 棒 材 底部 的 质心 上 
(参见 图 17.2) 

3. 材料 只 有 径 回 和 轴 问 的 移动 ， 没 有 切 同 的 移动 . 

4 如果 物 体 开 始 是 关于 z 轴 对 称 的 ， 则 形变 后 的 物体 也 保持 同样 的 对 称 性 . 

5. 描述 底部 周 长 的 径 向 距离 函数 p(4 思 贿 ) 满足 微分 方程 





_Dp 由 站 1 
pr( 人 内 三 一 5 一 Re 历 ， (17.2) 
此 处 疡 是 被 挤 压 物体 的 当前 高 度 ，C(p) 是 待定 的 比例 因子 ， 玉 描述 压板 和 棒 材 之 间 的 磨 撩 


大 小 : 
(a) 大 = 1: 无 磨 氛 . 侧面 平行 于 z 轴 .， 底部 达到 最 大 限度 的 扩展 . 这 时 有 


一 ooV 万 /R， 
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S 表示 当前 的 底部 面积 ， 豆 是 初始 的 高 度 . 
(b) & = 0: 磨擦 无 限 大 ， 底部 保持 其 初始 形状 : 


9 一 0 一 Comnst . 


侧面 的 变形 最 大 . 
(c) 0 < 有 < 工 两 个 底部 都 有 扩展 ， 侧 面 也 有 变形 . 


90 < 9 < SoV 万 /大 . 


五 的 典型 值 是 0.3 和 有 < 0.7. 
6. 变形 物体 的 任何 轴 向 截面 都 产生 一 个 对 称 暴 线 ， 我 们 把 它 近 似 成 抛物 线 (参见 加 让 


图 17.2 坐标 系统 和 底部 扩展 





17.2 底部 的 扩展 


在 用 MAPLE 求解 方程 (17.2) 之 前 ， 我 们 用 (17.1) 来 确定 未 知 函 数 C(A). 


> de := diff(rho(h)，h) = CCGh)*k/rho(hy) : 
> dsolve(de，rho(h) ) ，; 


oo2 一 2 大 ) can+_Cr 


> Sol_de := solve("，Trho(hy) )， 


Sol_de := 2R /cm 加 十 -C1， -2 /cmD 太 +-Cd 


> DiBa := Sol_de[1] : 


为 了 简化 计算 ， 引 入 新 变量 TCP 代替 太 C(P)dh. 积分 常数 -Cl 根据 未 压缩 的 棒 材 决定 


DiBa(d, 互 ) = Ba( 风 )， 


9S， 了 召 arto 膨 





第 十 七 章 金属 自由 挤 压 加 工 191 
此 处 Ba(%) 是 用 极 坐 标 表示 的 底部 周 长 ( 见 图 17.2). 作 替 换 
玖 
NH : 二 C( 严 )dA 
0 
DiBa := Sol_de[1L] : 
DiBa := subs(int(CGh)，h) = ICh，DiBa) : 


E1 := Subs(ICh = NE，DiBa) = Ba(Phi) : 
_C1:=SolLve(CE1L1，C1Ll) ; 


MY VSMYV 


CI1 := -2 NB 十 Ba(b)” 
如 果 平 板 与 棒 材 之 间 没 有 雇 控 ， 方 程 (17.1) 可 写成 如 下 形式 


”DiBa(g, 六 2 1” Ba(g)2 
和 
因为 侧面 没有 变形 ， 且 横 截 面 是 常数 .7TCA 现在 可 用 这 个 方程 来 确定 : 

>  Eq := h*JInt(subs(k = 1，DiBa) 2/2，PpPhi = -Pi..Pi) 

> = H*Int(Ba(Phi) ”2/2，PpPhi = -Pi..Pi): 

> EIlL := ICh = value(solve(Eq，ICh) ); 
4 天 w 歼 区 一 人 Ba(o)2d6T 吾 人 Ba(b)2d 

屎 区 

由 于 5 是 棒 材 的 初始 横 截 面积 ， 为 简化 问题 ， 现 在 我 们 用 众所周知 的 极 坐 标 公 式 计 算 封 闭 曲 线 包 


图 的 面积 . 和 


一 开 


在 第 二 步 ， 我 们 计算 最 后 结果 的 导数 ， 得 到 C(h) 的 表达 式 ， 


subs(int(Ba(phi) -2，phi = -Pi..Pi) = 2*So，EI1) : 
subs(ICh = int(CGh)，h)，EI2) ; 


B1B := /四 太 = 工程 AT 2 5 二 和 


玖 站 :一 7CI 一 2 


> 上 I2 
>  E 上 I3 


4 不 元 
> EI4 := normal(diff(EI3，h)); 
1 五 9o 
区 让 全 区 赂 过 = 
4 和 2 疡 2Tr 


现在 问题 已 简化 为 计算 NH = C( 由 ,而 DiBa(b, 关 ) 就 确定 了 . 
> NH := subs(h = H，Trhs(EI4) ) ; 


将 它 代 入 微分 方程 可 以 检验 结果 的 正确 性 . 
> DiBa:=simplify(subs(ICh = Ths(EI3)，DiBa)) ; 


一 K So 尹 十 太 So 万 十 Ba(O) 产 克 


DPIBa :一 
za 一 
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> de_test := simpJify(subs(rho(h) = DiBa，C(h) = rhs(EI4)，de)，symbolic) : 


> evalb(") ; 


t72e 


把 这 个 解 应 用 到 无 磨 捧 的 金属 园 柱 体 的 特例 . 在 这 个 特例 中 ， 由 方程 (17.1) 导出 
DiBa( 户 ) = Vmr， 


此 处 = 柱 体 的 初始 半年 ， 而 m = 瑟 / 疡 = 压缩 比 . 


> DiBa:=subsop(1 = collect(expand(op(1，DiBa))，f[Sso，Pi，k]) ,DiBa) ; 


(一 1 十 人 
DiBa := 2 十 Ba(d)2 


> Cylinder_test := eValb(rksqrt(n) = simplify(subs(So = Pi*T "2， 
> Ba(pPhi) =T，h = Hn，K = 1，DiBa),symbolic)); 


Cyimader_test :一 杂 te 


> Save(DiBa，'DiBa.sav'); 


17.3 由 一 个 或 几 个 函数 朱 述 的 底部 


在 本 节 中 ， 我 们 考虑 函数 族 Ba(%) 而 不 是 象 以 前 的 Ba(g) = 常数 ， 在 这 种 一 般 性 的 情形 下 ， 
底部 的 周 长 是 椭 园 形 或 三 角形 ;注意 三 角形 的 解 很 容易 应 用 到 任何 分 割 后 的 底部 

通常 在 技术 上 三 角形 由 它 的 边 长 ob%c 来 描述 . 为 达到 目的 ， 我 们 必须 用 极 坐 标 描述 三 角形 
的 顶点 ， 而 坐标 的 原点 必须 在 三 角形 的 质心 ， 可 以 按 如 下 步骤 来 做 ， 旋 转 三 角形 使 得 边 平行 于 
z 轴 ; 然后 移动 三 角形 使 得 它 的 质心 在 坐标 系 的 原点 .最 后 计算 项 角 以 确定 两 边 的 夹 角 轨 参考 图 
17.3 中 关于 平移 的 图 示 . 


图 17.3 坐标 系 中 的 三 角形 
y 






C=[cx,cy] 


NA SN B'-[c0] 


己 
A B 





> Testart ; 
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> Vith(linalg): with(Plots) : 

> el := CX` 2 + cy 2 = b 2: 

> e2 := (cx -b)*2+ cy 2 = a 2: 

> allvalues(solve({felt，e2}+，{cx，cy+)7); 
1 一 202 十 a? 1 V4 了 好 一 a2a 1 一 222 十 a2 1 V42 一 a2a 

[cz= -cc 

凤 pb 2 已 2 pb 友 b 

> assign('"LL] ) ; 

> A:= [0,0]: B := [c，0]: C := [cx，cy]: 

> T:= (A+B+C)/3: 

> A := normal(A - T): B := normal(B - T): 5C := normal(C - T) : 

> Aa := abs(arctan(At2]7VALCt] 7) ) : 

> Ab := abs(arctan(B[217/BLt]) 7) : 

> Ac := Pi/2 - arctan(C[1]/VC[2] ) : 


为 了 导出 三 角形 边 的 方程 ， 我 们 利用 了 极 坐 标 中 由 两 个 顶点 P = [PP 和 Q@ = [QQy] 确定 的 
直线 的 一 般 方程 . 描述 各 边 的 线段 由 角 4a, 48 和 4c 来 进一步 表示 . 


> ITrho := (QILy]j*Pf[Lx]j - QREx]*Pty]j)yV 
> ((P[x] - Q[x]j)*sin(Cphi) -(P[y] - QLY])*cos(Phi) ) ; 
0 :一 Cryiz 一 Cr 
(PP-Qo)sing) 一 (已 一 Quy) cos(g) 


> LTrl := normal(subs(PIx] = Alti]，Q[x] = B[1]，P[Lyj = At2J， 
> Q[y] = B[2]J ，zhc) ) ; 
> ITr2 := normal(subs(P[x] =B[t1] ，Q[x] = C[1]，PLy] = B[L2]， 
> QIy]j = C[2] ，rho) ) ; 
> rzr3 := normal(subs(P[x] = C[1]，Q[x] = A[1] ，P[yj = CL2] ， 
> Qtyj = A[2] ，rho) ) ; 
2 V482 --a2a 
人 
人 V4852 一 a2ac 
” 3 -2sin( 轨 刀 十 sin(g)a2 十 2sin(b) cb 十 V482 一 a2acos(g) 
1 V482 一 a2ac 


CT 


函数 Ba(g) 由 三 直线 rmi,rz,ras 组 成 ， 为 了 计算 So 我 们 利用 了 Heron 法 则 . 
> oo:= (a+b+ c)/2: 


> Sb := sqrt(oyr(o - a)*(o - b)*(o - c)): 
> Save(r1，r2，Tr3，Sb，Aa，Ab，Ac，'Tri.sav') ; 


重要 的 变量 存在 文件 Tri.sav 中 待 以 后 用 . 

接 下 来 还 要 代入 abc 的 值 . 让 我 们 观察 一 下 由 a = 8,8=?7,c=6 描 述 的 三 角形 棒 材 的 伸展 . 
对 磨擦 系数 的 三 个 值 开 = 1/3,2/3,1 以 及 一 系列 压缩 反比 的 值 iw/ 瑟 :=? = 10.9. .0.1 我 们 将 画 
出 三 角形 的 底部 扩展 . 为 了 比较 这 个 形变 我 们 也 画 出 了 横 截 面 为 椭 园 的 棒 材 的 底部 扩展 ， 李 园 的 
半 长 轴 为 = 3.5, 半 短 轴 为 上 = 1.85, 以 使 两 个 棒 材 的 面积 相等 . 
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为 了 用 极 坐 标 描 述 覃 园 ， 我 们 使 用 
zZ2 妨 QB 
ee 
Q va2sin (的 ) 2 十 52 cos (0) 
Sus :=a=8,b=7，c=6: Suf :=h= NyH，So = Sb: 
Aa := evalf(subs(Sus，Aa) ) : 
Ab := evalf(subs(Sus，Ab)) : 
Ac := evalf(subs(Sus，Ac) ) : 
R1L1 := evalf(snbs(Suf ，Ba(CPhiy) rl1，Sus，DiBa)) : 
:= evalf(subs(Suf，Ba(pPhiy) r2，Sus，DiBa)) : 
R3 := evalf(subs(Suf，Ba(phi) = r3，Sus，DiBa)) : 
RE := subs(h = N*H，Ba(pPhi) = ayb/sqrt(a "2*Ssin(phi) “2 
+ b>*2*cos(Pphi)”*2)，So = Pi*akb，a = 3.5，b= 1.85，DiBa) : 
SqN := [seq(1 -~ i*r0.1，= 0..8)]: 
With(plots) : 


下 面 的 MAPLE 程序 画 出 图 17.4 中 的 图 形 . 


YYVMYMMVMMYMMYMVMYMMYMY YY 
二 
| 


> for k from 1/3 by 1/3 to 1 do: 

> P1 := polarplot({fseq(R1，N = SqN)}，Pphi= - Pi + Aa..-Ab) : 

> P2 := polarplot({seq(R2，N = SqN)}，Phi = -Ab..Ac): 

> P3 := Polarplot({seq(R3，N = SqN)}，Phi = Ac..Pi + Aa) : 

> Print(display({P1，P2 ,P3}，scaling = constrained ， 

> View = [-6.5..6.5，-6..7])) ; 

> Print(Ppolarplot({fseq(RE，N = SqN)}，Pphi = -Pi..Pi， 

> scaling = constrained，view = [-6.5..6.5，-6..7])); 
>  od: 

> 区 := )?K)， 


17.4 侧面 的 形变 


由 于 材料 是 径 向 移动 ， 就 象 我 们 说 过 的 那样 ， 可 以 简化 对 侧面 形变 的 计算 . 只 有 轴 向 截面 的 
边界 线 需要 计算 ， 所 用 的 函数 如 图 17.5 所 描述 . 在 柱 坐 标 中 ， 侧 面 的 形状 假设 为 抛物 线 ， 


LaSi(b， 2z) 一 Qaz(g)z” 二 Qi(b)z Go )， (17.3) 
这 里 要 确定 函数 Qz(g,Qi(g) 和 Qo(g). 从 图 17.5 可 看 到 ， 


LaSi(g, 0) 
LaSi(g, 站 


进一步 ， 将 方程 (17.1) 中 的 第 数 表示 为 


/ora 


由 于 函数 Ba(g) 尚未 指定 ， 我 们 利用 Fubini 定律 来 交换 积分 的 顺序 : 


11/e- 太 (ages 


Qo(b) 
Go0) 
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图 17.5 侧面 的 形状 





为 了 方便 阅读 ， 以 下 推导 中 的 DiBa 仅 在 最 后 的 表达 式 中 以 下 式 代 入 ， 


DIEBa 三 


蒜 开 
(一 1 )K5o0 上 Batd)? 


> YeSstart ; 
LaSli := Q2*xZ 2 + QlL*rZ + QO: 
> EL := subs(z = 0，LaSi) = DiBa; 


了 1 := 一 QGO= DBPBa 


V 


> assign('"D) ; 
E2 := Subs(z = h，LaSi) = DiBa: 
> Qt := Solve(E2，QLl) ; 


V 


CI := 一 2 


> E3 := Int(Int(LaSi”2/2，Z = 0..h)，Phi = -Pi..Pi) = HrSo; 


开 刀 
五 3 或 上 5 (92z2- 92hz+ DiBojzdzdb = 百 5o 
一 TvO 


为 了 计算 双重 积分 ， 我 们 分 几 步 进行 . 先 对 z 积分 
> Il := int(LaSi"2/2，z = 0. .h) ; 


了 人 了 
1 一 42 六 6 Diza 62 二 2a 六 


然后 将 和 式 分 为 三 个 积分 : 
> I2 := subsop(seq(i = Int(op(i，I1)，Phi = -Pi..Pi)， 
ii = 1..nops(I1))，Il) ; 
2 方 ”和 三 
72 = 人 贡 9s 六 ”dg 十 上 


了 


兰 3 DiBa 92 53 db 十 3 DiPBo 2 jd 


9 吾 arto 说 
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> 
症 


I21 := subsop(2 = h/2*Int(DiBa`"2，Phi = -Pi..Pi)， 
3 = -Q2*h>~3/6*Int(DiBa，Pphi = -Pi..Pi)，I2) ; 


了 1 了 1 了 开 
721 := 人 G@2275 dp 十 本 DiBa” db 一 和 99278131 DipBpadb 


一 下 一 区 


再 将 底部 形变 函数 代入 积分 并 化 简 : 


V  V 


read('DiBa.sav') : 
I22 := subsop(1 = value(opPp(1i，I21)) ， 
2 = -Soyk(Kk*h - k*H - h)，I21) ; 


互 
12g := 沿 7Q2? 且 一 So(kh 一 k 瑟 -月 -5392 局 人 一 一 一 +Ba()? dt 


E3 := subs(op(4，op(3，I22)) = IDiBa，I22) = HrSo ; 
1 
已 9 := TO2215 一 So(kA -大 百 一 问 - 5 92j TDipo=5o 


这 样 得 到 一 个 关于 92 的 二 次 方程 ， 它 有 两 个 解 . 为 了 确定 在 物理 上 有 意义 的 解 ， 我 们 把 两 个 
解 821, 922 都 代入 LaSi, 最 后 通过 观察 图 17.6 来 确定 . 


YYVVVYMVYMVMVYMVYMVMYMMVMVMVYVYV XYWY 


Sol := solve(E3，Q2) : 

T1 := Sol[1]: TIT2 := Sol[2j: 

LaSi_L:=[subs(Q2 = T1，LaSi)，subs(Q2 = IT2，LaSi)]: 

Cylinder_Subs := IDiBa = int(DiBa，Phi = -Pi..Pi)， 

So = Piy*r "2，Ba(phi) = 工 , TI=1l1 ，H= 4，Kk = kappa，h = 1: 

LaSi_2 := simplify(subs(Cylinder_Subs，LaSi_l)): 

Kappa := [seq(1 -~ i/2，1 = 0..2)]: 

with(PLots) : 

P1 := Plot({fseq([LaSi_2L1] ，z，z 
thickness = 3) : 

kappa := ”Kappa : 

P2 := Plot({fseq([LaSi_2[2] ，ZzZ，z 
thickness = 1): 

kappa := ?kappa'”: 

display({P1，P2}) ; 


0. .1] ，kappa = KapPa) }， 


0. .1] ，kappa = KapPpa) }， 


把 正确 的 根 &2; 代入 LaSi, 得 到 非常 复杂 的 表达 式 . 在 用 MAPLE 简化 了 部 分 表达 式 之 后 ， 求 出 了 
最 终 的 结果 ， 它 可 写 为 如 下 形式 : 


之 
> 
>> 


LaSi := -zk(-Z + h)/(2*h>~2*xPi)*(5*TInt(DiBa，Phi = A..B) 
-~Sqrt(5)*sqrt(5*Int(DiBa，Phi = A..B) ”2 
- 24*Pi*rSo*r (k -~ 1)*(-1 + H/h))) + DiBa: 

subs (DiBa=:DiBa，，LaSi) ; 


妃 如 末 
=(-z+ 有 G DipBadd 一 V5 5(/ PiBaaddg)2 一 2475So(--1+ 一 )(R 一 1)) 
= 
2 


开矿 2 
十 Pa 
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17.6 对 92; 和 @2， 的 柱 面 测试 





其 中 4, 妃 是 描述 线段 的 角 . 


> Save(LaSi，'LaSi.sav' ) : 


17.5 非 中 心 化 的 底部 


我 们 定义 非 中 心 化 的 底部 是 指 质 必 不 在 坐标 系 原点 的 底部 .对 于 这 种 底部 需要 移动 坐标 系 以 
使 质 必 与 坐标 系 的 原点 重合 .在 直角 坐标 中 这 是 一 个 极 简单 的 问题 ， 然 而 在 极 坐 标 中 就 不 简单 了 
( 见 图 17.7). 非 中 心 化 的 底部 周 长 由 "(%) 来 描述 .但 我 们 需要 的 是 函数 p( 办 .我们 必须 用 新 的 变 
量 将 积分 表示 为 

B |(_1 十 扣 
] 人 4 二 0 十 Ba(b)2d4 (7.4) 
及 


所 以 必须 找到 函数 re,wWe 和 dyz, 它们 分 别 满足 方程 pl(g) = rz( 人 ,人 三 We(p) 和 d = dyz( 仇 ). 


图 17.7 非 中 心 化 底部 的 变换 


出 线 的 第 N 段 
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MYMVMMVMVMMVM MY YXVM 


Testart ; 
Tx := Txcos (theta): Ty := T*ysin(theta) : 
rl1x := rho(phi)*cos(Phi) + Tx = z(Psi)*cos(Psi): 
rd1y := rho(Phi)*sin(phi) + Ty = (psi)*sin(Psi) : 
= map(t -> 七 - Tx，rix): IT2y := map(t -> 七 - Ty，Trly) : 
R1 := combine(map(t -> t 上 "2，Tr2x) + map(t -> 七 2，IT2y)) : 
sol := rho(phi) = combine(solve(R1， rho(phi)) 51]) ; 


so1 := p( 罗 = VI(Vy) 一 2r(0)Tcos 一 六 十 天 


在 给 定 一 个 角 和 相 邻 的 两 边 以 后 ， 可 得 到 三 角形 第 三 边 的 表达 式 (余弦 定理 ). 现在 可 以 将 路 和 dy 
表 为 忆 的 函数 . 为 了 方便 ， 定 义 cos(g) = Cf(V) 和 sin(g) = Sf(%), 因为 需要 用 这 些 表达 式 来 作 图 . 


> 
之 
之 


R2 := phi = solve(lhs(r2y)/1hs (r2x) = rhs(T2y)/rhs(T2x) ，Phi) : 
dR2 := D(phi) = normal(dift(rhs(R2) ,Psi)) : 
df := factor(combine(rhs(dR2) ) ) ; 
了 工 ( 竟 z0)sinty 一 凡 r(0 二 rcosty 一 外 
一 r(op)2 十 2r(W)cos( 历 一 9 一 荆 ” 
Cf := solve(r2x，cos(pPhi)): Sf := solve(r2y，sin(pPhi)): 
Cf := subs(sol，Cf);， Stf := subs(sol，Sf) ; 
r(W)cos( my) 一 了 cos(O) 
Vr(tb)2 一 2r(z) 古 cos( 雪 一 外 十 开 ? 
-Tr(lp) sin() 十 人 sin(O) 


SF := 一 一 一 一 一 一 一 一 一 一 一 一 
vVr(WmWp)2 一 2r(W) 了 cos( 思 一 0) 十 荆 


CC = 


再 将 Ba 和 dd 的 表达 式 代 入 积分 (17.4). 如 果 底 部 的 周 长 由 具有 不 同 函数 描述 的 几 个 线段 组 成 ， 
那么 必须 将 积分 分 成 几 段 来 计算 . 


为 了 优化 各 段 计算 ， 我 们 使 用 如 下 的 MAPLE 语句 (Fo 优化 了 积分 外 部 的 代码 ， FI 优化 了 被 


积 函 数 ): 
> read('LaSi.sav'): read('DiBa.sav') : 
> FRzS := subs(Int(DiBa，Pphi= A.. B) = 
> Int (DiBa*df，Ppsi = A ..B)，Ba(phi) = Ba(pPsi)，LaSi) : 
> Teadlib(optimize) : 
> F0 := optimize([W1 = FRzS，W2 = Cf，W3 = Sf]): 
> FI := optimize(op(1,rhs(op(1，select(has，[F0] ，Int)7))77: 


然后 消去 各 段 共同 的 某 些 代 码 ， 得 到 最 终 的 算法 17.1. 在 调用 程序 17.1 之 前 一 件 重要 的 事情 是 指 
定 变量 EIco. 这 个 变量 决定 了 数值 精度 和 在 积分 计算 中 使 用 的 数值 方法 . 通常 EIco 有 如 下 的 值 : 


> 
靖 


EIco := NDigits : 
EIco := NDigits，_NumnMethod ; 


其 中 NDigits 决定 了 所 需 的 数值 精度 ， -NumMethod 定义 的 积分 方法 可 作 如 下 特 代 . 


-CCauad (Clenshaw-Curtis quadrature) 
NumMethod 王 _Dezp (double exponential routine) 
_NCraule (Newton-Cotes rule) 
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最 佳 的 选择 取决 于 应 用 ， 要 获得 更 详细 的 信息 可 输入 


> ?evalLlf[int] 


算法 17.1 要 求 的 输入 是 ; 
1. 尽 :: 1ist 是 描述 底部 周边 线段 的 函数 列表 .线段 按 反 时 针 排 序 . 


尽 : 一 区 一 户 (0 一 户 ( 一 万 (| 
2. Bo ::1st 是 每 条 线段 的 初始 点 的 位 置 角 加 上 最 后 一 条 线段 的 最 后 一 个 点 的 位 置 角 的 列表 . 
心 o := [aa a2，…，any am+i] CQm+L 三 人 1 十 2 


3. 丈 ?,h 记 REF 分 别 是 未 压缩 的 初始 高 度 ， 压 缩 后 的 最 终 高 度 和 磨擦 力 大 小 . 
如 果 R,Be 和 So 已 经 定义 ， 并 且 底 部 曲线 已 经 中 心 化 ， 就 可 调用 算法 17.1: 
> 工 := 0: theta := 0: 
> Elco := 12，JDexp: 
> 也 := Dops(R) : 
> Body(R，Bo， 卫 ，，K) 


这 个 过 程 返回 一 个 函数 列表 ， 它 用 柱 坐 标 描述 每 个 侧 边 的 变形 ， 假 定 底部 已 经 中 心 化 ， 
[gz) 一 疡 (加 zj) = 二 

如 果 没 有 中 心 化 ， 得 到 的 是 一 个 带 参数 的 函数 ， 
[wz 一 态 (gz 一 王 


算法 17.1 非 中 心 化 半 段 曲 线 的 优化 算法 
Body := proc (R::1l1ist，Bo::1ist，Hi，hft，kf) 
Local 1，ql，q2，dq3，d4，q5，q6，wl，w2，Ww3，Ww4，WVw5， 
wG6，w7r，wll，w8，w9，Vwtio，wl2，wlL3，WwW14; 
ELobal Rho，Cf，Sf， 色 ，Y; 
qdq3 := ~+ thetaij q5 := T 2; w2 := 0 
for 1 to 了 do 
ql[i]j := Ru)[i]; q2[i] := qdl[i] >、2; 
q4f[j] ql[i*Tycos(q3) ; 
dq6 [ij] 〈((1/hf*Hi -~ 1)/VPi*+rkf*So + q2[i] -~ 2*q4fi] 
+ q5) ”17/2) ; 
w2 := WwW2 + evalf(Int(q6[i]j*(Txdiff(RCu) [i] ，u)*sin(q3) 
+ q2[Li]j - q4[i])/(q2[i] - 2*q4[i] + q5) ， 
= Botij.， BoLi+l] ，EIco))， 


cd : 
wl := hf 2; w3 := 5” (1/2) wW4 := W2”2， 
w5 := -1 + 1/hf*Hi; 


二 
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w6 := (5*w4 - 24*Pi*rSo*rWwW5*(-1 + kf)) ”~ (1/27) 3; 
w7 := 1/Pi; wii := T”2; 
for 1 toDn do 
w8[i] := Ru)[i]; w9[i] := w8[i]”>2; 
wl0[i] := w8[Li]*Trcos(q3) ; 


wl2[i] := (WwW5*rw7*+rkf*+*So + w9[i] - 2*rwl0[i] + wldl)> (172) ; 
wl3fti] := (w9[i] - 2*wlo0[i] + wll)” (1/27) ; 
wlt4[i] := 1/wl3[i] ; 

oqd ; 


Rho := [seq(CunapP1LYy(1/2*Zz*#(-Z + ht)Vw1L*(-5*WwW2 二 W3*kWG)+Ww7 
+ WwWl2[ij，u，z)，i= 1 ..D)]; 

cf := [seq(Cunapply(C(w8[i]*cos(u) - T#rcos(theta))*wl4[i] ，U) ， 
=1 ..Dn)]; 


Sf := [seq(CunapPly(C(w8[i]*sinGu) - T*+sin(theta))*wl4[i] ，P) ， 
ii=d1T.. an)]; 

X := [seqGunapPLy(Rho(au，z)[i]*Ccft(u) [i]，u，z)，1i = 1 ..Dn)]; 

Y := [seqCunapP1y(Rho(u，z)[i]*Sf(u)[i]j，u，z)，i = 1 ..、 Da)]; 


Print('To display the compressed body Use the Maple command: “) ; 
if T = 0 then 
Print('cylinderplLotCrCf,z) ，f=a..b，Z=0..h)  ); 
elSse 
Print('“Plot3d([x(f,z)，y(f,z)，zj]，f=a..b，Z=0..h) ); 
夺 i ; 


end ; 


在 第 二 种 情况 下 ， 我 们 也 使 用 函数 列表 [Xij,[ 王 = 1 它 是 带 光 的 参数 函数 ， 用 来 描述 在 
直角 坐标 下 的 形变 物体 . 

如 果 底 部 是 非 中 心 化 的 ， 我 们 必须 先 计 算 质 心 的 极 坐 标 ( 阅 ,9), 这 可 用 程序 17.2 来 做 ， 输 入 的 
参数 p :1ist 和 bords :: 1ist 与 算法 17.1 的 处 理 相 同 ， 如 果 第 三 个 参数 Piot 是 1, 程序 将 男 出 底部 
的 形状 和 质心 的 位 置 . 变量 EIco 必须 预先 给 定 . 程序 返回 刀 0 以 及 初始 底部 面积 的 大 小 95o. 下 
一 节 将 说 明 如 何 使 用 这 些 程序 . 


17.6 ”形变 物体 的 三 维 图 形 表示 


17.6.1 中心 化 底部 
一 个 底部 为 三 角形 的 例子 将 说 明 Bedy 程序 的 用 法 而 不 必 调 用 MsCce 程序 . 


ZesStart ; 

read('cTri.sav') : 

a:=8: bb:=7: C := 6: 

Tr := [unappPlLy(Crl，Pphi)，unapPlIy(r2，Phi)，unappPly(r3，Phi)] ; 


YYVYV 





202 9. 忆 arto 放 


加 ”4 Vi32 V132 
人 21 sin( 四 ) 和 50sin( 办 十 8V132cos( 四 ) 
V132 
了 一 34sin( 四 ) 十 8V132 1 


> TrBo := [-Pi + Aa，-Ab，Ac，Pi + Aa]; 


72Bo :一 
全 工 4 
[一 立 十 arctan( 5 V132)， -arctan( 志 V132)， 5 T 十 arctan(T35 V132), 区 十 arctan(Eg V132)] 


> So := simplify(Sb) ; 


> T:=0: theta := 0: D:= nops(Tr): EIco := 12: 


对 于 三 角形 不 需要 用 数值 积分 的 变量 ETco, 因为 积分 可 以 解析 地 计算 . 
算法 17.2 计算 质心 


MsCe := Proc (rho::1ist，bords::l1ist，Plot) 
Jocal 工 ，MX，My，TIX，TyY，PIT，PJ]; 
g&Lobal So，T，theta; 


So := 0O; 
MXx := 0; 
My := 0; 


for 1 to Dn do; 
So := So + evalf(Int(Ct/2*rho(u) [ii] ”~2， 
u = bords Li] . .bords[i + 1]，EIco) ); 
Mx + evalf(Int(1/3*rho(u) [I] >~3+rcos(u) ， 
u = bords [ij .. bords[Li + 1] ，EIco)); 
My + evalf(Int(1/3*rho(Cu) [ii] ”~3*sinCu) ， 
Uu = bords [ij . .bords[i+i] ，EIco) ) ; 


芝 
U 


] 
必 
1 


Mx/So ; 
Ty := My/So ; 
readlib(Polar) ; 
PT := polar(Tx + (-1) ”~(1/2)*Ty) ; 
T := op(1，PT) ; 
theta := op(2，PT) ; 
if T 《“ 1/10000 then 
IT := O; 
theta := 0; 
上 


器 
当 
L 
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if abs(theta) 《“《 1/1L0000 then theta := 0; fi 
If Plot = 1T then 
for 1 to D do 
plL[i] := plots[polarplot](rho(Cu) [i] ， 
u = bords [i] .. bords[i + 1]); 
cd ; 
P1[0j := Plot([[LTxz，Ty]j] ，style = point ，symbol = box) ; 
PL[-1l] := PlotC[[Tx，Ty]j，[0，0]]) ; 
Print(Plots [dispPlay] ({fseq(PlL[i]j，i = -1 ..，n)})); 


下 : 
Print(' So = ,So，: 江 二 ,theta) ,' = ,theta) ; 
end ; 
> ITead(“Bodqy.map') : 
> With(PpLots) : 
> for II from 0Oto 3 do; 
> hb :=16 - 4*+ri; 
> Body(ITr ，TrBo，1416，h，0.4); 
> for ] from 1 to Dn dao: 
> PL[jj := cylinderplot(Rho(u，z)[j] ，u = TrBof[j]..TrBo[j + 1] ， 
> zZ = 0..h，grid=[3”i + 1，3”1 + 1]); 
> od : 
> SPL[i] := display({fseq(PL[Ij] ，j = 1..n)}，color = black， 
> style = hidden) : 
>  od: 
Zo dzspiay 妨 e cornpressed body Vse 如 ee Mapie com7rmaamd : 
cyiinderplot(r( 六 zz) 三 一 ap 2 一 0..7) 

> display({seq(SPL[i] ，i = 0..3)}，axes=boxed， 
> scaling = constrained) ; 


结果 显示 在 图 17.9 中 
17.6.2 ” 非 中 心 化 的 分 段 底部 


MVMMMVMMM YNW 


现在 讨论 如 图 17.8 描述 的 更 复杂 的 底部 ， (尽管 在 工艺 上 不 一 定 有 相应 的 情况 ) 


TeSstart :; 

EL := 18/sqrt(36*sin(u) "2 + 9*cos(u) ”~21) : 

Pt := -6/cos(ua) : 

pP2 := -4/sin(u) : 

k2 := Solve(Csubs(x = Trykcos(u)，y = IT#ySsin(u) ， 


(x+l1)”"2 + y"2 = 16) ,z)[1] : 
cC := [ua -> 3，unapply(EL，u) ，unapplLy(P1，u) ，unapply(P2，u)， 
unappLy(k2，uU)7] ; 
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CC : 


V 


MYVVMYMYV 


MYVYMVYMVMYMMVM V 


图 17.8 非 中 心 化 的 分 段 底部 
怖 圆 弧 





9. 吾 arto 和 人 


6 4 
[3 一 一 天 一 一 -一 ,2 一 一 一 一 一 一 , 怀 一 一 cos(u) 十 wcos()2 十 5] 


V4sin(u)2 十 cos(a)2 本 cos(u) 人 sin(z) 


alpha[3] Pi + arctan(4/61) : 
alpha[4] := 3/2*Pi - arctan(1/4) : 
CB := [0，Pi/2，Pi，alpha[3] ，alpha[4] ，2*Pi]; 


C 刀 := |0， 5 T，T 十 arctan(2)， 5 一 arctan( 了 )， 2T] 
savVve(CC,CB， crazy.sav') ; 

PEIco := 10，_CCquad : 

Q := Dops(CC) : 

read('“MsCe .map ') : 

MsCe(CcCC，CB，0) ; 


oo 一 ，53.77212102， 了 = ，1.760718963， , 0， 三 ， 一 2.770499706 


read(“Body .map ') : 
Body(CC，CB，20，8，0.2); 


Z0 dzspiay 妨 e compDressed body 1se 妇 e Maplie cormnyrmnarzd : 
Diot3d([z(jfz)，Vy(jz)，z]， = ab z = 0..7) 


with(PLlots) : 
for ii from 1 to Dn do: 
PlLi]j := Plot3d([XGOQu，z) [ij]j，YCu，z) [zi]，z] ， 
u=CBr[i]..CBLi+ ti]，z= 0..8); 
od : 


dispPlay({seq(PL[i]，i = 1..n)}，color = black， 


style = hidden，orientation = [-100，15] ，axes = normal) ; 
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图 17.9 三 角形 棒 材 挤 压 





用 程序 MsCce 和 Body 很 容易 将 结果 直观 地 用 图 形 显示 . 被 挤 压 的 物体 显示 在 图 17.10 中 . 


17.6.3 上 辐 多 边 形 底部 


在 17.3 和 17.6 节 中 ， 已 经 看 到 如 何 压 缩 一 个 三 角形 的 棒 材 . 三 角形 用 它 的 边 来 描述 . 用 各 个 
顶点 来 描述 的 多 边 形 需 要 将 算法 稍微 修改 一 下 . 下 面 MAPLE 的 例子 表示 了 五 个 顶点 的 解 . 并 没有 
对 顶点 数目 的 限制 ， 从 多 边 形 的 质心 看 ， 要 按 反 时 针 顺 序 对 这 些 顶 点 排序 . 

TesStaIrt ; 
PNTi := [[1i,1]，[4,3]，[3,4] ，[2,4j ，[0,2]] : 


PNTo := [PNTiLI]，PNTi[L1]]: 
D := nops(CPNTi) : 


VMVVMV V 


Tx := sum(op(i，PNTi) [1] ，i=1..n)/n; 
Ty := sum(op(I，PNTi) [2] ，:i= 1..n)/n; 
了 7 人 
2 :一 一- 
2 


顶点 的 质心 用 于 计算 多 边 形 的 质心 .我们 将 用 原点 在 [Tz,Ty] 的 新 坐标 系 来 描述 这 个 多 边 形 . 


> Teadlib(polar): read('MsCe.map'): EIco := 10，_CCquad: 
> T := op(1，Ppolar(Tx + I+*Ty)): theta := op(2，Ppolar(Tx + ITy)) : 
> while evalf(T) > 0 do; 
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MAVYMMYMMMMYMMVMMYMMMMMVYMVYM VSVY 


图 17.10 具有 非 中 心 化 底部 的 棒 材 的 挤 压 
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Tx := Trycos(thetal) : 
TYy := TyrSsin(Ctheta) : 
PNTo [seq([op(i，PNTo) [1] - Tx，op(i，PNTo) [2] - Ty] ， 
1I= 1..n+1)]; 
i:= )i?; jc:=i+li 
T := LseqCunapPLy(Cnormal((PNTo[Lj，1]*PNTofLfi，2j 
-PNToLi，1t]*PNTo[j，2]77 
(sinGCu)*#k(PNTof[Lj，1] - PNToLi，1) + 
cos(u)*(PNTo[i，2] - PNTo[j，2])))，u)，i = 1..n)]; 
bo := [seq(op(2，Ppolar(PNTo[i，1]j + I*PNTo[i,2 ]))， 
i=1..n+1)]: 
for 1 from 1 to D Go 
if evalf(bo[j]) < evalf(bofi]) then 
bo[j]j := bo[] + 2+Pii 
fi; od: 
MsCe(T，bo，0) ; 
od : 
So = ,6.000000000， 人 = ，.1704206850， ,96，= ，-1.902855794 
oo 一 ，6.000000001， 了 = ，0， 了 


read('Body.map ') : 
Body(GT，bo，4，2，0.31) : 


TD dzspiay 她 e cornpressed pody ?Use 如 e AMaple cornrmazarzd : 
cylinderpiotlr( 六 z)， = ap，z = 0.. 几 ) 


with(P1ots) : 
tor 工 from 1 to 了 TD ao; 


P1L ULi] 


:= Cylinderplot(RhoGu，z) [ij ，u=bo[Lij..bo[jj，z = 0..2); 


9 玉 arto7i 
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> 0od: 
> display({seq(CPplL[i]，i= 1..Dn)}); 


被 挤 压 的 物体 的 没有 显示 在 这 里 ， 它 可 以 象 前 面 一 样 被 画 出 . 


17.7 三维 动 男 


如 果 我 们 的 计算 机 有 足够 的 内 存 ， 可 以 把 整个 挤 压 过 程 象 电影 一 样 显示 . 考虑 一 个 底部 如 图 
17.8 所 描述 的 棒 材 的 挤 压 过 程 . 我 们 将 再 次 使 用 已 经 计算 好 的 存储 在 文件 crazy.sav 中 的 变量 . 
MAPLE 的 命令 是 相同 的 ， 但 我 们 在 不 同 的 时 间 段 调用 程序 Body, 从 而 得 到 挤 压 物体 的 图 形 序列 . 


TesSstart ; 
Grid := [5，5，3，3，5] : 
Frames := 20: Hi :=20: hf := 6: kk := 1/3: 
read('crazy.sav'): Tead('MsCe.map ') : 
D := Dops(CC) : EIco := 10,_Dexp: 
MsCe(CC,CB ,1) : 
9o 三 ，53.77212102， 了 = ,1.760718963， ” ，0，= ， 一 2.770499706 


MYVVMVYMVY SVM 


read(“Body .map“) : 
for j from 0 to Frames do ; 
h := Hz- (Hi - hf)*j/Frames; 
Body(CC，CB，Hi，h，Kk) ; 
Anf[j]j := [seq(Cop(Pplot3d(CL[xXGu，z) [il] ，YCu，z) [i] ，z] ， 
u= CB[i..CB[i+lt]，z = 0..h，grid = [Grid[fi] ，15])) ， 
关 = 1..n)]， 
Print(j) ; 
od : 


MYVVYMMVMMYMVYVMYMV YY 


Zp dzspliay 妃 e 而 5ody thPe Ahfapie cornrmarzd : 
plot3d([z( 记 zy( 记 za 权 ， 天 = ab 二 0. 站 
20 


为 了 节约 篇 申 ， 没 有 对 每 一 帧 打印 所 有 20 个 相似 的 输出 . 这 些 命 令 建 立 了 21 个 部 分 图 ， (参见 图 
17.11) 用 它们 来 产生 动画 的 数据 .在 如 中 汇集 的 片段 图 最 后 形成 了 动画 . 


>  PLOT3D(CANIMATE(seq(CAn[i] ，i = 0. .Frames)) ,TITLE(cAnimation' ) ， 
> AXESLABELS(X ,yy，,Z)) ; 


17.8 局限 性 和 结论 


我 们 的 模型 仅仅 找 述 了 被 挤 压 物体 侧面 的 几何 形状 .因此 它 不 能 描述 物体 材料 的 移动 ， 并 且 
局 限于 描述 凸 边 形 的 横 截 面 . 然而 这 个 简单 模型 很 适 于 描述 均匀 的 和 物理 上 各 向 同性 (尤其 是 受 压 
特性 ) 的 材料 .模型 的 精度 取决 于 比例 数 bya, 其 中 已 和 a 分 别 是 棒 材 初始 横 截面 的 最 短 直 径 和 最 
长 直径 ， 

金属 物体 形变 的 这 个 数学 模型 可 以 成 功 地 用 于 工艺 计算 ， 使 工艺 实验 的 次 数 大 大 减少 ， 从 而 
节约 时 间 和 金钱. 


9 避 arto 有 7 


部 分 图 形 的 汇集 


玫 17.13 
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第 十 八 章 Gauss 积分 


LVom Afatt 


在 本 章 中 ， 我 们 借助 MAPLE 研究 怎样 计算 Gauss 积分 . 考虑 一 下 积分 


人 本 (18.1) 
其 中 w(z) 是 一 个 非 负 权 函 数 . 假设 对 所 有 的 玉 过 0, 积分 
/ zw(z)dz (18.2) 
存在 . 还 假设 w(z) 在 区 间 [o, 引 内 只 有 有 限 个 零点 (参见 [20, 第 18 页 |) 
Gauss 积分 的 目的 是 用 有 限 和 
贱 Flz)jw(z)dz ~ > 。 ai (zi (18.3) 


来 近似 积分 (18.1), 其 中 需要 确定 横 坐 标 z; 和 权 wwi, 使 得 所 有 不 超过 最 高 可 能 次 数 的 多 项 式 都 精 
确 可 积 . 

我 们 还 要 考虑 Gauss-Radau 积分 和 Gauss-Lobatto 积分 ， 其 中 规定 在 区 间 lc, 的 边界 上 有 mm 
个 横 坐 标 ， 用 zi,z2,……，,zm 表示 这 和 m 个 横 坐 标 ， 到 可 取 到 =0mm =1 和 和 也 三 2. 

Gauss 积分 理论 是 一 个 广泛 的 领域 . 在 本 章 里 ， 我 们 将 集中 在 导出 积分 法 则 的 部 分 . 读者 也 可 
参考 有 关 的 文献 [4, 20,，31|]. 

在 Ganuss 积分 中 ， 正 交 多 项 式 起 了 关键 作用 . 只 要 知道 正 交 多 项 式 的 递 推 关系 式 ， 利 用 一 
特征 值 分解 ， 就 可 以 计算 Gauss 积分 法 则 的 横 坐 标 和 权 . 因此 在 第 18.2 节 ， ie 
多 项 式 的 两 种 方法 . 

在 第 一 种 情况 , 区间 [ac, 相 和 权 函 数 w(z) 必须 是 显 式 的 . 于 是 利用 符号 积分 ,我 们 可 以 用 Lanczos 
算法 计算 正 交 多 项 式 的 递 推 关系 式 . 

在 其 它 情 况 ， 只 需要 求 出 对 应 于 区 间 lc, 和 权 天 数 w(z) 的 矩 . 基于 Gram 和 矩阵 的 Cholesky 
分 解 ， 我 们 提出 了 一 个 算法 ， 计 算 正 交 多 项 式 的 递 推 关系 式 . 

在 第 18.3 节 ， 我 们 证 明 一 个 定理 ， 它 是 计算 Gauss 积分 法 则 的 基础 在 此 定理 的 基础 上 ， 我 
们 分 别 在 第 18.4 节 ， 第 18.5 节 和 第 18.6 节 ， 给 出 计算 Gauss,Gauss-Radau 和 Guass-Lobatto 积分 
法 则 的 算法 . 权 w; 的 计算 是 在 第 18.7 节 . 最 后 ， 在 第 18.8 节 ， 我 们 得 到 积分 误差 的 一 个 表达 式 . 

计算 Gauss 积分 法 则 是 MAPLE 一 个 有 价值 的 应 用 . 我 们 利用 它 的 符号 能 力 ， 精 确 地 计算 递 推 
关系 式 的 系数 . 因为 MAPLE 也 支持 任意 精度 的 浮 点 运算 ， 所 以 对 任何 要 求 的 精度 ， 利 用 特征 值 分 
解 ， 我 们 均 可 计算 积分 法 则 的 横 坐 标 和 权 . 
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18.2 正 交 多 项 式 


在 未 节 ， 我 们 讨论 计算 对 应 于 区 间 fa, 明 和 权 函 数 w(z) 的 正 交 多 项 式 的 几 种 方法 
定义 18.0.1 我 们 称 
上 藉 志 / F(z)g(zjw(zjdz (18.4) 


是 关于 权 函 数 w(z) 和 区 则 le, 外 的 内 积 . 
此 内 积 有 一 个 重要 的 性 质 
(z 妨 9) = ( 户 z9g)， (18.5) 
在 本 章 中 ， 经 常用 到 此 性 质 . 
定义 18.0.2 我 们 称 表达 式 


已 
jx :一 (2z ,1) 一 / zeuw(z)dz (18.6) 


是 关于 权 有 函数 w(z) 的 第 有 个 短 . 

很 多 书 是 关于 从 这 些 常 窍 计 算 积 分 法 则 的 1, 6, 28, 33]. 然而 ， 这 种 方法 是 数值 不 稳定 的 ， 正 
如 [9] 中 Gautschi 所 证 明 的 . 作为 一 种 改进 ， 引 进 所 谓 修正 矩 (参见 [10, 第 245 页 ] 和 {27, 第 466 
页 外 ). 

定义 18.0.3 我 们 称 表 达 式 


B 
NE 三 / Tk(zZ)w(z)dz (18.7) 
是 关于 权 函 数 w(z) 的 第 有 个 修正 矩 ， 其 中 mk 是 一 个 天 次 的 多 项 式 . 
假设 多 项 式 ro(z)j,ri(z),..…. 满足 递 推 关 系 式 
zl_1 一 和 -1rk_2 十 Chi 十 Brk， 大 一 1 2,... (18.8) 


其 中 和 :=0 和 -li(z) := 0. 假设 系数 房 是 非 零 的 . 

常 矩 px 是 修正 矩 wx 的 一 个 特例 , 令 mx(z) = zx 即 可 得 到 , 在 这 种 情况 下 ， 递 推 关 系 式 (18.8) 
中 ， 弥 = 各 =0,Bk = 1 

定义 18.0.4 我 们 定义 答 阵 


77200 四 7720,m 一 1 
并 天 (18.9) 
772mn 一 130 ”一 lm 一 1 
是 呈 阶 Gram 答 阵 ， 其 中 每 个 元 素 
72 一 (Tri Tri ) (18.10) 


是 一 个 内 积 . 
矩阵 M 不 仅 是 对 称 的 ， 而 且 对 v 关 0, 由 于 


亿 一 上 了 一 1 


也 一 工 包 一 工 
V AdfVv 一 Vi7V7 一 人 》 21TTi， 》 27TT1 人 0， 
7? 一 0 


zi 一 0 1 一 0 一 个 
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它 也 是 正定 的 . 

现在 我 们 说 明 ， 从 修正 矩 wk 和 递 推 关 系 式 (18.8), 如 何 计算 和 矩阵 M. 在 [10, 第 255-256 页 ] 中 
有 一 个 类 似 的 导出 结果 . 

因为 ro(z) 是 一 个 常数 ， 所 以 有 


220 一 《Ti TO0) 一 To0UWi， 97201 一 (7o,707) 一 7021， (18.11) 


因而 在 下 面 ， 我 们 将 假设 ?> 0 和 JJ > 0. 如 果 用 递 推 关 系 式 (18.8) 代替 (18.10) 中 的 多 项 式 ri(z)， 
则 得 到 
mi 一 (70) 一 记 (TriZTT-1 一切-177-2 一 G7TT-1] 
| 


一 记 ((2TaT5-1) 一 人 茹 -17n2i7-2 一 G57nij 一 1 


为 了 代替 zi(z), 应 用 几 次 递 推 关系 式 (18.8), 可 得 


人 有 和 区 
7 一 (31 十 GiHT5i 十 DiHi7i+H1TT 1) 一 入-17nii 2 一 Gin 1) 
了 
或 


下 ， 3 
21 一 (302 -11 十 (Gil 一 Gy)rniy-1 十 Dai+Hlj-l 一 访 -17n2ij2)， (18.12) 


太 
其 中 ri- 1 =0. 因而 由 初 值 (18.11) 开始 ， 在 (18.12) 中 可 递 推 地 建立 矩阵 AM. 
下 列 模型 也 可 描述 (18.12) 中 的 关系 : 


YY 


和 洁 
7 一 人 7725 了 


772i 十 1,7 一 1 
此 图 说 明 ， 计 算 rmi 的 值 之 前 ， 必 须知 道 矩 阵 M 的 元 素 . 用 MAPLE 计算 Gram 和 矩阵 M 的 方法 
见 算法 18.1. 
定义 18.0.5 如 果 下 列 条 件 成 立 : 
1. pkfz) 是 大 次 的 ， 
2. 对 于 次 数 小 于 有 的 所 有 多 项 式 p(z)， 多 项 式 pk(z) 满足 正 交 条 件 
(pk,p) = 0， (18.13) 
3. 多 项 式 pk(z) 满足 归 一 化 条 件 
(pk,Pk) 一 |， (18.14) 
则 称 多 项 式 po(z),pli(z),... 是 关于 内 积 (18.4) 的 正 交 多 项 式 . 
由 于 条 件 (18.14), 多 项 式 po 一 定 是 不 为 零 的 常数 ， 因 此 ， (18.13) 的 一 个 简单 推论 是 ， 对 于 
>1 
(pk,1) = 0. (18.15) 


下 面 的 定理 保证 了 关于 内 积 (18.4) 正 交 多 项 式 的 存在 性 , 并 且 显示 了 计算 它们 的 第 一 种 方法 . 
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算法 18.1 从 改进 的 答 来 计算 Gram 算 阵 AM 


Gram := Proc (Pi0，alPphahat ，betahat ，gammahat ，nu， 卫 ) 
Jocal 革 ，j，M; 


M := array (Symmetric，0..2*xn-1，0. .2+*n-1) ; 
for 1 fromn 0 to 2*+*n-1l do 
M[i,0j := simplify (Pio * nu[i]) ; 
od ; 
for 工 from 1 to 2+*n-2 do 
M[i,1] := simplify (人 
(gammahat[i] > MLIi-tLi,O] + 
(alphahat[i+1i] - alphahat[1]》 * M[i,0] + 
betahat [i+i] * M[i+l,0]) / betabhat [ti]) ; 
oOd ; 
for j] from 2 to Dn-l1 dqQo 
for 工 rom j to 2*D-I-j do 
ML[i,j]j := simplitfy (人 
《gammahat [i] * M[i-t,j-1] + 
(alphahat [i+1] -~ alphahat[j]) * M[a,j-1i] + 
betahat[i+l1] * M[Li+1l,j-1]j - 
gammahat [j-1ti] * M[i,j-2])》 / betahat[j]y) ; 
od ; 
od ; 


RETURN (M) ; 


end : 


定理 18.1 对 于 任意 给 定 的 容许 内 积 ， 存 在 一 个 正 交 多 项 式 序 列 {pk(z)}P。. 
证 明 根据 Mysovskih{f22] 的 论文 ， 设 pk(z) 为 
大 


pk(z) = 》 ski7i(z). (18.16) 


2 一 0 


我 们 定义 下 三 角 和 矩阵 
500 


(18.17) 


Sm 一 10 Sn 一 1n 一 I 
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对 于 有 天 ,, 正 交 性 条 件 (18.13) 隐 含 : 
天 大 
(>， 3KiTLi) SI1TT1 一 >》， 为 SK1SITT7 一 0. (18.18) 
1 一 0 7 一 0 1 一 0 7 一 0 
归 一 化 条 件 (18.14) 即 为 
天 上 天 天 
(> SKi7TT1i) Ski7Ti ) 一 > ， SkiSk1T2t71 一 工 . (18.19) 
?一 0 2z 一 0 ?一 0 7 一 0 


可 用 和 矩阵 表示 条 件 (18.18) 和 (18.19) 
S1MSI 一 了 


其 中 是 (18.9) 的 Gram 和 矩阵， 因为 M 是 一 个 对 称 正 定 和 矩阵 ， 所 以 可 计算 Cholesky 分 解 


AM = 工 亏 1 (18.20) 


其 中 世 是 下 三 角 和 矩阵 . 由 于 工 的 道 矩 阵 也 是 一 个 下 三 角 和 矩阵 ， 因 此 找到 所 求 的 矩阵 9,5 := 工 -1. 
与 (18.16) 相反 ， 正 交 多 项 式 的 下 列表 示 经 常 更 为 有 用 . 
定理 18.2 正 交 多 项 式 po(z)j,pa(z),... 满足 递 推 关 系 式 


ZDPk-1 三 -1PK-2 十 akDk-1 十 DBkPkE， 大 一 1 2 (18.21) 

其 中 
ak 一 〈(zpk-1 PK-1) 《18.22) 
了 KK 三 (zpk-1l)pk)， (18.23) 


并 且 Ho := 0,p_i(z) := 0, 和 po(z) := 土 V1/Hpo = 土 Vzro/uo. 
证 明 显然 ， zpk-l 可 写成 
大 
ZDPk 一 1 一 >》 cip 
:一 0 
其 中 ci = (pizpk-1) = (zpi)pk-1). 由 于 (18.13), 我 们 有 co = …: = ck-s = 0. 如 果 根 据 (18.22) 和 
(18.23) 定义 ak 和 DBx, 可 立即 得 到 (18.21). 
此 定理 得 到 第 一 个 计算 正 交 多 项 式 的 递归 算法 . 如 果 已 知 系数 al ... ,ak 和 0,... ,6k_1, 以 
及 多 项 式 po,. ,pk-l1 则 由 方程 (18.21), 就 可 确定 px. 我 们 有 


qK :一 DOkPK 一 (zz 一 akjpk-l 一 1DK_2， (18.24) 


标准 化 条 件 (18.14) 隐 含 
有 失 三 土 V(qk,gk)， (18.25) 


于 是 zx =qk/B. 最 后 ， 由 (18.22) 可 得 ak+l 的 值 . 
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工法 18.2 Lanczos 工法 


Lanczogs := proc (iprod，alpPha，beta， 也) 


local 多，P，Q，XX; 


alpha := arITay (1..D) ; 


if nn > 1 then beta := array (1. .n-1) else beta := "beta ”于 i; 


p[o] := collect (1 / sqrt (iprod (1，1，x))，x，simPlify) ; 
alphafi] := normal (iprod (x*p[0] ，P[LOj] ， X)7) ; 
q := collect ((x - alpha[1]) * P[0] ，X，simplify) ; 
for kk from 2 to D do 
beta[k-1] := Dormal (sqrt (iprod (Q，Q，X) ) 1) ; 
p [kxk-ti] := collect (q / beta[k-1] ，Xx，simp1ifyy) ; 
alpha[k] := normal (iprod (x*P[k-1] ，P[k-1] ，x)) ; 
q := collect ((x - alpha[k]) * P[k-1j - beta[k-1]*p [kxk-2] ， 
x，SimPp1Lify) ; 
od ; 


RETURN (NULL ) ; 


end : 


这 个 递归 程序 也 称 为 Lanczos 算法 . 算法 18.2 给 出 它 在 MAPLE 中 的 实现 . 注意 ， 
参数 iprod 被 传递 . 例如 ， 我 们 用 语句 

>a:=0:b := infinity: 

> omega := 七 -> exp(- 世 ) : 

> iprod := (f,g,x) -> int(*g+*omega(X) ,X=a..b) : 

> 了 := 10: 

> Lanczos(iprod，，alPha:， ”beta ， 工 ) : 


计算 Laguerre 多 项 式 的 递归 系数 akg=2K 一 1 和 A 厌 三 大. 
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内 积 (18.4) 作为 


Lanczos 算法 要 求 计算 任意 多 项 式 内 积 (18.4) 的 能 力 . 仅 基 于 修正 矩 (18.7), 也 可 得 到 另 一 个 


算法 . 


在 定理 18.1 的 证 明 中 ， 我 们 提出 一 种 计算 正 交 多 项 式 的 方法 ， 它 是 基于 Gram 算 阵 M 的 
Cholesky 分 解 (18.20)， 在 (18.16) 中 表示 px 的 矩阵 9 是 Cholesky 因子 工 的 逆 和 矩阵. 直接 计算 
Cholesky 分 解 (18.20), 需要 O(n3) 的 运算 [17, 第 4.2 节 ]. 然而 ， 我 们 将 证 明 ， 和 矩阵 工 的 元 素 满足 
一 个 类 似 Gram 矩阵 M 的 递 推 关系 式 . 这 使 得 我 们 可 设计 一 个 改进 的 算法 ， 它 只 要 求 On ) 的 运 


算 . 
因为 S= 工 -1 由 (18.20) 可 得 


也 = MMS 
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于 是 ， 工 的 元 素 1 可 写成 


了 
72zKS7K 一 (Tri， 光 。 SJK7K )， 


天 一 O 
由 (18.16) 可 得 
05 一 (Ti Dj (18.26) 
由 于 (18.20), 可 用 
1oo  V700 (18.27) 
得 出 foo 的 值 . 在 下 面 将 假设 ;i > 0. 如 果 利 用 递 推 关系 式 (18.8), 代替 (18.26) 中 的 多 项 式 ri, 则 有 
1 一 (ri DD1 二 计 (zmi-1 一 _170i 一 2 一 Gai7fi 1)D71) 


二 忘 ((z75-1)D7) 一 节 -10 -27 一 Gil 让 
现在 可 用 递 推 关 系 式 21), 代替 表达 式 (zipDi) = (mi-lzpi) 中 的 多 项 式 zpji(z). 这 样 得 出 


1 一 记 二 抽 吉 < 1 1012Dj 一 1 十 Qij+1D7 十 Di 上 +1Dj+1) 王 分 和 宇 人 二 2,7 一 Gili-1l 让 
; 


或 
1 区 
Li 一 到- 十 (ai 一 Ci) -1 了 十 Bi-1A+L 一 六 12) (18.28) 


其 中 /1 = 0. 我 们 得 到 矩阵 工 的 元 素 的 递 推 关 系 式 . 下 面 的 模型 可 描述 过 中 的 关系 : 


3 
人 71 ji -1.7+1 


和 
0 
然而 应 该 注意 ， 方 程 (18.28) 中 有 未 知 系数 ak 和 Ex 因此， 根据 (18.28), 不 能 计算 过 中 所 有 
的 元 素 . 
如 果 已 知 ai,...,akl 和 D...,Bk_i 以 及 所 有 ii < 大 的 1 则 可 用 (18.28) 计算 4 ， 对 于 
7=0,..., 大 一 2. 由 AM 的 Cholesky 分 解 (18.20), 可 得 


天 一 之 
大-1 一 一 太 关 (mA 天 一 1 一 人 1 (18.29 ) 


太一】 
人 一 有 一 >》 训 ， (18.30) 
j=0 


的 值 . 另 一 方面 ， 递 推 关 系 式 (18.28) 给 出 不 -1 的 表达 式 


1 机 
人 ,1 一 人 十 (ak 一 Gk)LK 1 1) (18.31 ) 
大 





第 十 八 章 Gauss 积分 


如 果 求 解 (18.31), 则 可 得 


CRKLKR-1 一 大 -Te-Lk-2 (18.32) 
1k-1 
用 同样 的 方法 ， 由 (18.28) 可 得 
1 
久 大 一 二 [人 -1 一 1， (18.33) 
大 
使 得 
大 一 | (18.34) 
大 = 


在 [27] 中 ， Sack 和 Donovan 从 修正 和 窍 引 进 一 个 计算 递 推 关 系 式 (18.21) 的 类 似 方法 . 他 们 称 它 
为 “长 商 修 正 差分 (LQMD) 算法 ”. 在 [10] 中 ， Ganutschi 提出 一 个 相关 的 算法 ， 它 基于 Gram 甜 
阵 M 的 Cholesky 分 解 (18.20). 不 幸 的 是 ， 他 没有 注意 到 ， Choiesky 因子 工 中 元 素 的 递 推 关 系 式 
(18.28). 虽然 他 的 叙述 比 Sack 和 Donovan 更 为 清楚 ， 但 是 其 算法 是 O(n:) 阶 的 . 
现在 我 们 提出 算法 18.3, 它 在 MAPLE 中 实现 我 们 的 方法 . 对 于 给 定 的 ” 必须 提供 输入 参数 : 

常数 多 项 式 ro, 系数 6kK=1 20-1 拓 =1.. ,27 一 1 和 承 ), 有 =1 .2 一 2 以 及 修正 矩 
Uk) 天 一 0,.. .2 一 1 从 而 ， 算 法 18.3 建立 基于 递 推 公式 (18.11) 和 (18.12) 的 Gram 矩阵 AM. 然 
后 ， 用 方程 (18.27),(18.28),(18.29),(18.30),(18.32) 和 (18.34), 构造 Cholesky 因子 卫 , 以 及 递 推 关系 
式 (18.21) 的 系数 : ak 大 = 三 1 .)m 和 pk 天 三 1 .mn 一 1. 此 算法 是 O(n2) 阶 的 . 


算法 18.3 从 修正 纸 计 算 递 归 关 系 式 (18.21) 
SackDonovan := Proc (Pi0，alpPhahat ，betahat ，&gammnahat ，Dnu， 呈 ， 
alpha，beta) 
LIocal j，KXk，L，M; 


M := Gram (Pi0，alphahat，betahat ，g&ammahat ，nu，mn) ; 

L := array (0..D，0..n) ; 

alPpha := array 〈1. .D) ; 

if Dn> 1 then beta := array (1..n-1t) else beta := beta fi; 


L[0,0] := simplify (sqrt (M[0,0] ) ) ; 
L[1,0] := simplifty (CM[1,0] / L[0,0] ) ; 
alpha[1] := simplify (人 
alLPhahat [1] + betahat[1] * LL1,0] / LI0,0]); 
X := 1; 
while k《“ pn do 
L[k,k]j := simplify 人 
sqrt (M[k,k] - sum (?L[k, jj 2: ，?: jl=0..K-I)7)); 
beta[xk] := simplify (betahat[k] * 工 [k,k] / L[x-t,k-1]7) ; 
X := X+1; 
LIk,0] := M[k,0] / L[o,0] ; 
for j from 1 to K-2 do 
L[k,j]j] := simplify (人 
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(beta[j] * 荆 [k-t,j-1t] + 
(alpha[j+1i] - alphahat[k]) * L[k-1i,j] + 
beta[j+li] * Lfk-1,j+li] - 
gammahat [k-ti] * 工 [k-2,j]) / betahat [kj] ) ; 
oa 
L[k,k-1] := simplify (人 
(CM[xk ,k-1] - 
sum (?L[k,j] * L[k-1,j]，，?，j:=0. .Kx-2)) / 
L[k-1,k-1] ) ; 
alphafk]j := simplify 
alphahat [kj] + 
(betahat fk] * [kk,k-1j - 
beta[kx-1] * L[k-1l,k-2]) / 工 [kxk-1l,k-1t ) ; 


od ; 


RETURN (NULL) ; 


end : 


算法 18.3 所 需 的 存储 量 也 是 O(n2) 阶 的 .正如 Sack 和 Donovan 所 给 出 的 ， 可 得 到 存储 量 与 ”成 
比例 的 一 个 更 复杂 的 实现 . 为 了 清楚 起 见 ， 在 这 方面 我 们 将 不 继续 下 去 . 

读者 应 该 注意 ， 算 法 18.3 优 于 Gautschi 所 给 的 算法 ， 仅 在 浮 点 运算 可 达到 . 在 一 个 符号 计算 
中 ， 正 如 在 MAPLE 中 执行 ， 不 仅 运 算 的 次 数 ， 而 且 运算 对 象 的 大 小 都 影响 总 的 执行 时 间 . 虽然 算 
法 18.3 比 Ganutschi 所 给 的 算法 ， 需 要 更 少 的 算术 运算 ， 但 是 它 的 运算 对 象 更 为 复杂 . 所 以 我 们 没 
有 看 到 ， 我 们 的 算法 比 Gautschi 所 给 的 算法 有 明显 的 加 速 . 

作为 算法 18.3 的 一 个 应 用 例子 ， 我 们 计算 关于 区 间 [0,col 和 两 个 权 函 数 


wecos(Z) := e (1+coswpz)， (18.35) 
wsin(Z) :一 e (1+sinwz). (18.36 ) 


的 正 交 多 项 式 . Laguerre 多 项 式 Zu(z) 是 著名 的 ， 它 是 关于 区 间 f0, ccl 和 权 函 数 w(z) =e ”的 正 
交 多 项 式 . 因此 ， 考 虑 改进 的 矩 


人 人 也 nu(Z)wcos()dz， (18.37) 
0 

人 / mw(Z)wsin(Z)dz. (18.38) 
0 


是 合理 的 ， 现 在 我 们 说 明 ， 怎 样 解析 地 计算 改进 的 矩 ve* 和 峻 "” 


定理 18.3 多 项 式 _ 
也 (z) :一 > | | 辣 (18.39) 


k 一 0 
是 第 m 个 Laguerre 多 项 式 . 
证 明 Laguerre 多 项 式 满 足 递 推 关 系 式 (18.21), 其 中 po =1ak 三 2 一 1 三 大 因为 (18.39) 
所 定义 的 多 项 式 ， 满 足 同 样 的 递 推 关 系 式 ， 所 以 它们 一 定 与 Laguerre 多 项 式 相 同 . 
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对 任意 的 复 常 数 c, 其 中 屎 (c) < 0, 我 们 有 


至 一 上 
人/ Zneczdz 一 ml( 一)?+1. (18.40) 
0 C 


由 分 部 积分 和 关于 ?” 的 归纳 法 ， 可 证 明 此 式 . 因为 方程 (18.39) 和 (18.40), 所 以 可 证 明 


又 忆 风 久 C 十 1 
从 而 有 
[Zn(z)e-*cospzdz 一 耻 (用 (zje(-1+i9)zdz) 
汪 (CD RCH) 
(一 二 >” 了 十 工 大， 人 也， 一 2 大 
- (Con 
和 ee 
”Zn(z)e-*sinwpzdz = 人 了 un(z)e 和 
_ TY， 也 亿 十 1 可 到 
二 = [ 竺 淘 千 r 三 (no j Com 十 1 一 2K 
=0 
现在 ， 我 们 可 用 
1 
cos 18.42 
wG 下 ( ) 
COSs (一 (一 Lp 几 了 2 十] 天 72 一 2 大 
人 2 二 (-1 on， 郊 > 0， (18.43) 
4 
岛 1 也 二 一 18.44 
V0 9 ( ) 
号 十 工 
Sim (一 二 "7 也 十 工 1 类， 人 十 1 一 2K 0 (18 45) 
Un ES (一 1 9 ， 多 > 0， 
天 一 


表示 修正 和 矩 (18.37) 和 (18.38). 利用 MAPLE 语句 


>N := 10: 

> Phi :=1: 

> alphahat :=array 〈1. .2*N-1，[seq (2*k-1，k=1. .2*N-1)]): 
> betahat := array (1. .2+N-1，[seq (k，Kk=1..2*N-1)]): 

> gammahat := array (1. .2+xN-2，[seq (k，k=1. .2*N-2)]): 

>L := (nn，X) -> sum()(-1)”(n-k)*binomial(n,k) 这 Xk / KK1) ， 
> ?KK =0. .D) : 

> nucos[o] := 1 + 1 /V(i+phi ”2): 

> for D from 1 to 2yN-1 ao 

> nusin[tn] := (-1)”n * phi“n / (t+phi~2)”(n+1) 
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> Sum(binomial (n+ 二 ,2 本 K+T)》 水 

> 〈《-17) >“KkyPhi”~(n-~2*k)，，k)2=0..floor(n/2) ) ; 
> od : 

> nusin[oj := 1 + phi / (t+phi”~2) : 

> for 了 from 1 to 2*N-1 do 

> “nusin[n]j := (-1) >n * phin / (1+phi>2)>~(n+1L) 洒 

> sumk :binomial (n+1 ,2*K) 本 《〈-1) ~ 水 

> Phi~(n+1-2*k)，,IK)=0..floor((Cn+1)/V2) ) ; 
> 0od : 

> SackDbonovan 《(L 《0 ，X) ，alphahat ，betahat ，Egammahat ， 

> nucos，N，?:alphacos:，，)?betacos ) ; 

> SackDonovan (人 L 〈0 ，x) ，alphahat ，betahat ，gammahat ， 

> nusiDn，N，:alLphasimn:”，”betasin7); 


表 18.1 2= 工 时 an” 和 8” 的 值 


















也 

1 次 = 0.74536 
2 旦 六 2.4000 
3 妆 855 、 2.5426 
4 雹 8 六 8.4005 SAy 4.1511 
5 2 ~ 8.0617 5 w 48527 
6 2028765 ~ 11.512 180402284501 和 6.6726 
7 人 0 久 12.012 594 S 6.1349 
4 2126 
3 28446E 汪 610392 祥 15.374 23 风 提 全 041029 8.5845 





表 18.2 e=1 时 asin 和 psin 的 值 








从 

1 闻 多 0.81650 
2 65 ~ 2.1409 

3 18x65 2.6386 

4 784190 N, 4.5413 

5 2747911 :9.8835 830Ya365 4.3015 

6 交 生 让 光 引 六 10.6778 3V175513765005 <。 6.5306 

7 2 和 4 13.607 16268y341567141 xy 6.7114 

8 多 320385319743068 < 13.513 54v165093636746135 ^; 8.5691 

9 | 2 > 18.801 | 辣 区区 六 ~ 7.8359 


我 们 可 计算 ， 关 于 区 间 [0, coel 和 两 个 权 函 数 wcos 和 wsin 的 正 交 多 项 式 的 递 推 关 系 式 (18.21). 得 到 
表 18.1 和 18.2 所 示 的 结果 ， 
定理 18.4 正 交 多 项 式 pk(z) 仅 有 大 个 不 同 的 零点 ， a < zl < .… .< zk < 六 
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证 明 用 反 证 法 证 明 (参见 [20, 第 21 页 ]). 假设 在 区 间 (o, 刀 内 ， 多 项 式 pk(z) 只 有 大 < 大 个 


零点 人: 具有 奇 重 数 ， 在 这 个 区 间 内 ， 多 项 式 


用 Ce 


z 一 】 


与 pk(z) 有 相同 的 符号 ， 因 此 ， 在 区 间 (ab 内 ， 积 pk(z)q(z) 不 改变 符号 ， 即 


(pk 9) 夫 0， 


与 pk(z) 的 正 交 性 质 18.13) 歼 居 . 


下 面 的 定理 ， 建 立 了 由 递 推 关 系 式 (18.21) 所 定义 的 多 项 式 序 列 {pej& -oo 和 系数 为 ak,Gk 的 三 


对 角 线 矩阵 了 的 特征 值 分 解 之 间 的 联系 . 


定理 18.5 对 于 一 个 可 由 递 推 关 系 式 (18.21) 表示 的 次 多 项 式 pn(z)( 其 中 Bk 关 0/ 三 对 角 


线 矩 阵 
al 由 
光一 P 
证 
| CC 
的 特征 值 zi < ... < zn 是 它 的 替 点 .进一步 令 
Zn 一 QXQ- 


(18.46) 


(18.47) 


是 Th 的 特征 值 分 解 ， 其 中 扎 是 对 角 线 元 素 为 zi.…，,zn 的 特征 值 答 阵 ， @@ 是 正 交 的 特征 向 量 和 拢 


阵 . 如 果 定 义 
po(zZi) po(zn) 
二 渤 : 
pn-li(zl) … pn-1i(zn) 
和 
d11 0 
Do0 
0 过 1m 
则 
包 = 三 全- 


证 明 可 将 递 推 关 系 式 (18.21) 写成 矩阵 形式 
2D0 al 应 20 
6 


m 一 1 OU i Cm 2Dm 一 1 


(18.48) 


(18.49) 


(18.50) 


(18.51) 
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有 著名 的 结论 ([23, 第 124 页 j),T" 有 zm 个 不 同 的 实 特 征 值 zz <…: < zn:. 考虑 特征 值 对 应 的 特 
征 加 量 q : 
了.q 一 入 ql (18.52) 
它 等 价 于 ”个 方程 
clgi 十 gz 三 和 Gl1， 
OK _19K -1 四 CKCK 二 CaGk+1 = 入 GK， 大 一 ， .一 | (18.53) 
DO-1dqn -1 十 anqn 一 和 9qn. 


因此 ， 问 量 q 的 分 量 满足 递 推 关 系 式 


18.54 
gx+H1 一 人 eegk 一 抱 qkh 一 2 一 1 
其 中 选取 qt, 使 得 llqllz = 1. 由 于 所 关 0, 显然 ， 每 个 特征 向 量 的 第 一 个 分 量 是 非 零 的 ， 否则 ， 整 
个 回 量 为 堆 ， 与 特征 向 量 的 定义 矛盾 . 
另 一 方面 ， 我 们 定义 
po(z) 
PP(z 六 :和 全 : (18.55) 
DPn-1(Z) 
从 (18.21) 可 知 ， 向 量 P( 和 A) 的 分 量 满足 递 推 关 系 式 


pi(A) = 所 apo( 入 )， 


18.56 
PK (入 ) 一 stDk-1( 入 ) 四 人 徐 =pk_2( 入 )， 太一 5 .人 ) 
除了 初始 值 不 同 ， 它 与 (18.54) 是 相同 的 . 因而 ， 乘 上 一 个 系数 ， 向 量 q 和 Pp( 和 A) 一 定 相等 : 
可 二 :和 闷 ( 霹 (18.57) 
Po 


因为 Bu 关 0, 所 以 方程 (18.51) 隐 售 pn(A) = 0. 如 果 对 每 个 特征 值 zk 计算 (18.57), 则 可 得 (18.50). 


18.3 ”积分 法 则 
考虑 构造 一 个 积分 法 则 的 问题 


1 十 刀 


6 
/ Flzjw(z)dz s >》 uif(zi， (18.58) 
国 = 


对 不 超过 最 大 可 能 次 数 的 多 项 式 可 精确 积分 .假设 在 区 间 [ao, 蛋 的 边界 上 ， 有 mm 个 横 坐 标 zi < 
… < zm, 其 中 mm 只 能 取 冯 =0m 王 1 和 mm=2. 令 


人 (全 ] 一 Ci) (18.59) 
i 一 1 
是 一 个 mm 次 的 多 项 式 ， 上 面 mm 个 横 坐 标 是 它 的 零点 ， 而 且 令 
7372 十 似 
相 [中 二 ][ (z 一 2i) (18.60) 


1 一 ?2 十 1 





第 十 八 章 Gauss 积分 223 


是 次 的 未 知 多 项 式 ， 其 零点 为 横 坐 标 5 二 
下 面 的 定理 是 计算 积分 法 则 的 关键 ( 参 见 20 第 161 页 j). 
定理 18.6 对 所 有 次 数 不 超过 中 十 2 一 1 的 多 项 式 p, Gauss 积分 法 则 [18.58) 精确 成 立 的 充 
分 必要 条 件 是 下 列 两 个 条 件 成 立 : 
1. 对 所 有 次 数 不 超 过 m 十 于 一 1 的 多 项 式 p, Gauss 积分 法 则 (18.58) 精确 成 立 . 
2. 方程 
1 r(z)s(z)p(rjwo(zjdz =0 (18.61 ) 


可 用 于 所 有 次 数 不 超 过 浆 - 1 的 多 项 式 P. 

证 明 首先 假设 ， 对 所 有 次 数 不 超过 到 十 2n -1 的 多 项 式 ， Gauss 积分 法 则 (18.58) 精确 成 
立 . 显然 ， 对 所 有 次 数 不 超过 mm+m -1 的 多 项 式 ， Gauss 积分 法 则 (18.58) 也 精确 成 芯 ， 多 项 式 
r(z)s(z)p(z) 的 次 数 小 于 等 于 mm 二 2n 一 1 因此 积分 精确 成 立 : 


?772 十 记 


人 r(z)s(z)p(z)w(zjdz = 三 汪 Wir(2Zi)s(zi)p(zi) 一 0. 


另 一 方面 ， 假 设 条 件 1 和 2 成 立 ， 根据 
tZ) 一 r(zZjs(Z)P(Z) 十 9 


可 分 解 一 个 次 数 小 于 等 于 几 +2n 一 1 的 多 项 式 凡 z), 其 中 PP 和 39 分 别 是 次 数 小 于 等 于 对 一 1 和 次 
数 小 于 等 于 mm 十 导 一 工 的 多 项 式 ， 因而 有 


下 t(z)w(zjdz 一 册 r(zZ)js(z)p(z)w(zjdrz 阅 qdq(Z)w(zjdz 
= 及 ga(z)o(z)dz. 


但 是 对 所 有 次 数 小 于 等 于 人 m 十 m 一 工 的 多 项 式 ， 积 分 法 则 是 精确 的 .因为 tazi) = q(zi 于 是 有 


7 十 取 71 十 人 肝 


/ qdq(zjw(z)jdz 三 2 tid(2i) 一 六 这 (Di )， 


从 而 


7 了 十 屯 


三 t(z)w(z)dz 一 2 ui)， 


对 所 有 次 数 不 超 过 mm+ 2 一 工 的 多 项 式 ， Gauss 积分 法 则 精确 成 立 . 

现在 考虑 束 =0m=1 和 了 =2 时， 积分 法 则 的 构造 . 为 此 ， 我 们 必须 确定 m 十 m 个 横 坐 标 
2i, 使 得 定理 18.6 的 条 件 2 满足 ， 对 于 三 种 情况 ， 将 调用 不 同 的 过 程 . 

之 后 ， 我 们 必须 确定 权 wi,， 使 得 定理 18.6 的 条 件 1 满足 . 在 第 18.7 节 中 ， 将 解决 此 问题 . 
MAPLE 算法 18.4, 18.5 和 18.6 将 给 出 这 些 结果 . 


18.4 Causs 积分 法 则 


在 Gauss 积分 法 则 的 情况 中 ， 没 有 规定 横 坐 标 ， 即 到 =0 和 rr(z) = 1. 如 果 取 s(z) = pn(z)， 
则 定理 18.6 的 条 件 2 满足 因此 ， pn(z) 的 零点 ， 即 矩阵 7 的 特征 值 ， 表 示 所 求 的 横 坐 标 zi( 参 
见 [18]). 
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工法 18.4 Gauss 积分 法 则 
Gauss := Proc (mu0，alpPha，beta，D，X， 人 了) 
LIocal D，1，Q，IT; 


T := array (1..n，l..n，symmetric，[[0$n]$n] ) ; 
for 1 from 1 to Dn do 
T[i,i] := alpha[i] ; 
od ; 
for 1 from 1 to D-l do 
TLi,i+l]j := betaf[Li] ; 
T[i+ti,i] := betaf[i]; 
od ; 


evalf (Eigenvals (T，Q) ) ; 
arTray (1..n，[seq (D[i] ，i=1l1..n)]); 


RETURN (NULL) ; 


end : 


18.5 Gauss-Radau 积分 法 则 


array (1..n，[seq (evalf (ma0) * QL1,i] 2，i=1. .na)]); 
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在 Gauss-Radau 积分 法 则 中 ， 在 区 间 [co, 中 的 边界 上 ， 仅 规定 一 个 横 坐 标 zi, 即 mm = 1 和 
r(z)=z 一 aa 或 r(z)=z 一 0. 不 直接 计算 满足 定理 18.6 的 条 件 2 的 多 项 式 s(z), 而 是 构造 m 二 1 次 


的 多 项 式 记 +i(z) =7(z)s(z). 从 下 面 两 个 要 求 ， 可 确定 此 多 项 式 : 
1. 5 是 5n+l 的 一 个 因子 : 
Pn+i(zl) 一 0. 
2， 方程 
/ratc)plzjolz)dz=0 
可 用 于 所 有 次 数 不 超 过 ?于 的 多 项 式 2. 
我 们 从 下 面 冯 +i(z) 的 隐 式 (参见 [16]) 开始 : 
Po0 al OO 20 
BE 


im 0 Cn+l 人 nm 


其 中 Gn+l 的 值 仍 需 确定 . 


(18.62) 


(18.63) 


(18.64) 
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首先 我 们 说 明 ， 对 任意 的 e+l, 选取 的 六 +: 满足 (18.63). 由 于 方程 (18.64) 


2mn 一 Dupn-1 二 Gn+ipDn 名 Dnpn+1l 


和 递 推 关 系 式 (18.21) 
书 2f 二 Op 1 十 Cn 二 1Dn 十 DiDn1， 
多 项 式 记 +1 可 表示 为 


Dn+1 一 (an+1 Gn+1)Pn 机 是 On+1Dn+1. 


显然 ， 多 项 式 +i 是 pn 和 pn+i 的 一 个 线性 组 合 ， 总 是 满足 (18.63). 
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(18.65) 


我 们 只 需 确 定 Gen+l 的 值 , 使 得 各 +i(zi) = 0, 或 等 价 于 zl 是 方程 (18.64) 矩阵 的 一 个 特征 值 . 


为 此 考虑 特征 值 方程 





或 等 价 于 


ZIyY 三 了 ny 十 [Cn71en， 
ZI17 三 yn 十 Gn+i77. 
由 (18.66), 可 知 y 是 (Th -zi7)” en 的 倍数 . 因此 ， 令 
y := (7 一 zi 站 men. 
于 是 ， 由 (18.66) 可 得 


罗 ， 
9 


(18.66) 
(18.67) 


(18.68) 


(18.69) 


注意 ， 依 赖 于 zl 的 选择 ， 和 矩阵 Tm - zli7 是 正定 的 或 负 定 的 . 在 每 一 种 情况 ， 向 量 y 的 值 是 唯一 


确定 的 . 
将 (18.69) 代入 (18.67), 可 得 


Cn+1l 三 ZI1 十 2 
因而 ， 我 们 已 经 确定 多 项 式 浆 +li(z), 它 的 零点 是 Gauss-Radau 积分 法 则 的 横 坐 标 . 
算法 18.5 Gauss-Radau 积分 法 则 


Radau := Proc (mu0，alpPha，beta，Dn，Xxl，Xx，TY) 
Local alphanltilde，D，e，1i，Q，T，Yy; 


T := array (1..D，1..n，symmnetric，[[0$n]$n]y) ; 
for 1 from t+ to Dn do 

TiLi,ij := alphafi] -~ xlt; 
od ; 


for 1 from 1 to Dn-1L do 


(18.70) 
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T[i,i+l]j := beta[i]; 
T[i+l,i]j := beta[i]; 
cd 


1inalg[vectorj (n，0); enj := 1 霸 ; 
1inalg[1insolve] (T，e) ; 


vd 
目 


alphanttilde := simplify (xl + beta[n]`2 * y[na]) ; 


T := array (1. .n+1，1l1..n+l，symmetric，[[0$n+1]$n+1l1]) ; 


for 1 from 1 to 了 QQ do 
T[i,i] := alpha[i] ; 

od ; 

Ttn+t,n+lj := alphanltilde; 

for 1 from 1 to D do 
TLiz,i+l]j := beta[ij; 
TIi+l ,ij] beta[i] ; 

od ; 


局 
中 


evalf (Eigenvals (T，Q) ) ; 
x := array (1..n+fl1，[seq (D[il] ，i=1..n+l)]y); 


w := array (1. .n+l1，[seq (evalf (mua0) * Q[I1,i] 2，i=1..n+l)]); 


RETURN (NULL ) ; 


end : 


18.6 Gauss-Lobatto 积分 法 则 


LVom AMa 龙 


在 Gauss-Lobatto 积分 法 则 的 情况 中 ， 我 们 规定 两 个 横 坐 标 zl =a 和 zz= 只 即 人 mn 三 2 和 
r(z)=(z 一 al(z 一 切 . 不 直接 计算 满足 定理 18.6 的 条 件 2 的 多 项 式 s(z), 而 是 构造 m+2 次 的 多 项 


式 和 +?(z) = r(z)s(z). 从 下 面 两 个 要 求 ， 可 确定 此 多 项 式 : 
1. s 是 加 +s 的 一 个 因子 : 


万 "+2(Z1) 一 万 "+2(Z2) 冯 昌 ， 
2， 方程 


5 
/ Dn+2z(z)p(zjw(zjdz = 0 


马 


可 用 于 所 有 次 数 不 超过 一 1 的 多 项 式 P. 


(18.71) 


(18.72) 
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我 们 选取 多 项 式 和 +2, 它 由 德 阵 方 程 隐 式 地 定义 (参见 [16j) : 


2Po0 al A Po 0 
人 : 
让 : 2 二 十 (18.73) 
妨 m 局 Cn 二 1 OH1 2m 0 
PPn+i DT Gn+2 | 万 


其 中 Hi 关 0, Ga 仍 没 有 确定 . 
现在 我 们 说 明 ， 对 任意 的 + 和 an+2?, 选取 的 芒 +2 满足 (18.72). 根据 (18.21)，(18.73) 的 倒 
数 第 二 个 方程 
zDn 一 p_i 十 anHipn 十 DA1 瑟 1 


定义 多 项 式 Drn+1 是 2DPm+l 的 倍数 : 





厂 " 十 1 人 0 (18.74) 
C++ 
将 (18.74) 代入 (18.73) 的 最 后 一 个 方程 


| = +1Dn 二 Cn 二 2Dn+1 二 DPn 二 2， 














可 得 成 
要 四 1 中 
之 ea 一 CH+1Dn 十 Gn+2 2 Drn-Al1 十 Dm 二 2. 
CA+l Di 
由 于 
ZDn+l 三 DT1pn 十 an+2pn+l 十 BAH2pn+2， 
因此 可 得 多 项 式 
2 
所 > 尼 GOCn+2 
Pn+2 一 四 一 On+1)pn 十 人 (an 二 2 一 Cn+2)pn+l 十 人 (18.75) 
On+1 | DA+1 


显然 ， 多 项 式 Dn 二 2 是 PPm 22m 十 1 和 人 mm 十 2 的 一 个 线性 组 合 ， 总 是 满足 方程 (18.72). 
现在 ， 我 们 将 确定 房 + 关 0 和 an+s 的 值 ， 使 得 各 +z(a) = 商 +2(b) = 0. 但 是 这 等 价 于 ， 要 求 
方程 (18.73) 的 算 阵 有 两 个 特征 值 c 和 心 考虑 特征 值 方程 





“| 7 |= 呈 

7 
和 

本 本 本 

we 
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或 等 价 于 
Gy 一 TY 十 Di7en+l， 
an1 一 Diyn+l 十 Gan+271， 
pz 一 到 于 DCen 
0 一 Dizn+l 十 Gn+26. 


LVom AMa 大 


(18.76) 
(18.77) 
(18.78) 
(18.79) 


由 方程 (18.76) 和 (18.78), 可 知 向 量 y 和 z 分 别 是 (Tti - aD) -ren+fl 和 (Tn+l 一 pb7) en+rl 的 信 


数 . 如 果 定 义 y 和 z 


(Tn+1 本 a7)- en+l， 


5 :一 (Ti 一 D 人 -en+li 


必 


则 方程 (18.76) 和 (18.78) 隐 含 


人 1 


而 且 和 矩阵 TH 一 a7 和 人 + 57 分别 是 正定 和 负 定 矩阵 .特别 地 ， 我 们 有 不 等 式 





7 一 6 王 


将 (18.82) 代入 (18.77) 和 (18.79), 再 用 +i 相 乘 ， 可 得 线性 系统 


1 一 yn+1 Cnm 十 2 _ | 马 
| 一 忆 岂 十 1 帮 2 b 
因为 (18.83), 所 以 线性 系统 (18.84) 有 唯一 解 


byn+l 一 QZzZn+i 
》 
zfm 十 1 一 Zm 十 1 
D 一 


Of+1 一 一 > 0. 
2Vm+1L 一 2Zm 十 1 


一 -一 


Cn 十 2 一 


因而 ， 最 终 确定 多 项 式 记 w+az(z), 它 的 零点 是 Gauss-Lobatto 积分 法 则 的 横 坐 标 . 


算法 18.6 Gauss-Lobatto 积分 法 则 
Lobatto := Proc (mu0，alpha，beta，D，Xl，x2，X，Vw) 
local alphan2tilde，betantitilde，D，e，1，Q，T，y，Z; 


T := array (1. .n+1，1. .n+t1，Ssymmetric，[[0$n+1]j$n+1]) ; 
for from 1 to Dn+l do 
T[i,i] := alpha[i] -~ xlt; 
oOdQ ; 
for 寺 from 1 to Dn do 
T[i,i+l] := beta[ij]; 
TLi+t,i] := beta[i]; 


(18.80) 
(18.81) 


(18.82) 


(18.83) 


(18.84) 


(18.85) 


(18.86) 
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oOd : 


1inalg[vector] (n+1，0); e[n+l] := 1; 


1Linalg[1Linsolve] (T，e) ; 


for 1 from 1 to Dn+ti do 
T[Li,i]j := alpha[i] - x2; 

od ; 

Z := Linalg[1linsolve] (T，e) ; 

alPhan2tilde := Simplitfy ((x2 * y 了 [n+1] - X1L*Z[n+l]) / 
(y[n+1l] - Zz[n+l]y)) ; 

betanltilde := Simplify (sqrt 〈((x2-Xxti) / 
(y[n+1j -~ Zz[n+1]y))) ; 


T := array (1. .n+2，1. .n+2，SsSymmetric，[[0$n+2]$n+2] ) ; 
for 1 from 1 to n+l do 
Ti,i] := alphaf[i]; 
od ; 
T[n+2,n+2] := alphan2tilde; 
for 1 from 1 to D do 
T[i,i+t] := beta[i]; 
TLi+li,i]j := beta[ij]，; 
cod ; 
T[Ln+l,n+2] := betantitilde; 
T[n+2,n+1] := betanltilde; 
D := evalf (Eigenvals (T，Q) ) ; 
X := array (1. .n+2，[seq (D[i] ，i=1..n+2)]) ， 
w := array (1. .n+2，[seq (evalf (mu0) * Q[1,i]*2，i=1..n+2)])， 
RETURN (NULLy7 ; 


enaQ : 


18.7 权 


计算 权 的 过 程 与 上 面 所 述 每 个 积分 法 则 的 过 程 相 同 . 我 们 必须 确定 权 wl,.….,zom+nw, 使 得 定理 
18.6 的 条 件 1 成 立 . 等 价 地 , 我 们 要 求 (18.64) 和 (18.73) 中 的 多 项 式 po ………,pn 和 柬 + ,Drm+n al 
可 精确 地 积分 : 


忆 
/ pk(Z)w(z)dz = 全 ipKR(zZil) 一 2 Ok0， 天 一 0. .min(m mm 十 mm 一 1)， 


亿 


5 
/ (z)w(z)dz 一 ”ao0i7R(zi) 一 0， 一双 十 1 . .7m0 十 寻 一 荆 . 
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用 和 矩阵 的 形式 可 写成 
Po(zZ1) ze Do(CZm-+nm) 1 1/2o 
万 mHTn 1(Z1) 人 | 《20 人 mm 十 也 0 


或 Pw = et/po. 因为 定理 18.5, 可 得 Q = PTV, 使 得 


| 
W 三 -一 frOrei 
Po0 


由 (18.14) 和 (18.6) 可 得 
e)olz)dz = mpo =1 


人 


最 后 得 到 权 w; 
5 = 101， 2 一 1 ...);,7m 十 7. 
现在 作为 一 个 应 用 ， 我 们 计算 关于 区 间 [1,2] 和 权 函 数 
工 
人 二 演 


的 Gauss-Lobatto 积分 法 则 . 


LU. Vonm Afa 万 


(18.87) 


(18.88) 


下 面 的 MAPLE 语句 ， 计 算 正 交 多 项 式 的 递 推 关 系 式 (18.21). 然后 ， 调 用 算法 18.6 即 可 计算 


积分 法 则 : 
>N := 11: 
> Digits := 100: 
>a:= 1 : 
>b:= 2: 
> 


omega :=X -> 1 /xx: 


V 


alLpPhahat := array (1. .2*+N-1，[0$2*N-1] ) : 
> betahat := array (1. .2*+N-1，[L1$2*N-1] ) : 
gammahat := array (1. .2*N-2， [0$2*N-2] ) : 


V 


Pio := 1: 

nu[ol := ln (b) - ln (al) : 

for 了 from 1 to 2*N-1 do 
nu[fn] := (ba - an) / ni 

od : 

mu0 := nuL0Oj / pio: 


YYVYVYVYYV YY 


> SackDonovan (Pi0，alphahat ，betahat ，gammnahat ，Dnu，NTN， 
alpha ，:beta:) ; 
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> Lobatto (mu0 ,evalf(op(alpha)) ,evalf(op(beta)),N-l1,a,b， 
> 2X 7， ， 2W) ; 
横 坐 标 和 权 如 表 18.3 所 示 ， 结 果 保 留 20 位 十 进 制 数字 . 
表 18.3 Gauss-Lobatto 积分 法 则 的 横 坐 标 和 权 . 


ZK VOK 
1.0000000000000000000 ”0.0073101161434772987648 
1.0266209022507358746 ”0.043205676918139196040 
1.0875753284733094064 “0.070685480638318232547 
1.1786507622317286926 ”0.088433599898292821869 
1.2936151328648399126 ”0.096108531378420052625 
1.4243072396520977438 ”0.095097966102219702354 
1.5611522948208446896 ”0.087445652257865527102 
1.6938824042052787649 ”0.075118353999491464492 
1.8123676368833335432 ”0.059695944656549921510 
1.9074586992416619710 “0.042332113537812345903 
1.9717495114038218100 “0.023827527632972240207 
2.0000000000000000000 “0.0038862173963865060038 


吕 和 mo~ 呆 人 贡 必 风电 | 他 


二 
ho 哺 改 


18.8 ”积分 误差 
现在 ， 我 们 考虑 怎样 表示 积分 误差 


ma 十 妃 


5 
五 [月 人 (zjw(z)dz 一 起 ti 丰 (Zi). 


4 一 1 
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(18.89) 


假设 在 区 间 [ab 上 ， 被 积 函 数 是 一 个 (mm 十 2m) 次 连续 可 微 函 数 . 而 且 令 瑟 (z) 是 唯一 确定 的 次 


数 小 于 等 于 mm 十 2 -1 的 多 项 式 ， 它 满足 Hermite 捅 值 条 件 (参见 [29, 第 44 页 ]) 


末 (zi) =jf(zi)，2 三 1 .7mn 十 9， 
万 (zi) 三 了 (zi)， ?一作 十 1.. .7 十 匈 ， 


首先 我 们 检查 ， 在 区 间 [ec, 引 上， 多 项 式 五 (z) 近似 给 定 函 数 jz) 的 情况 . 


定理 18.7 令 三 人 
Q(z) := Tc 人 [[ (z 一 zi) 
4 一 1 一 ?7 十 工 
是 一 个 mm +2n 次 的 多 项 式 ， 则 对 于 区 间 fa, 引 内 的 任意 z, 存在 Ee (ab 使 得 
加 1 
j(z) 一 囊 (z) 十 SP 


(18.90) 


(18.91) 


证 明 对 于 z = zi, 方程 (18.91) 显然 成 立 、 因 此 我 们 假设 z 头 zi 和 ze[a,. 考虑 函数 


jf(z) 如 (zj 


(18.92) 
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显然 , 在 区 间 [fw, 引 上 ，F(t) 至 少 有 mm 二 2m 二 1 个 零点 . 由 Rolle 定理 可 知 ， 在 区 间 [c, 引 的 内 部 ， 
Fn+2n(b) 至 少 有 一 个 零点 6， 


P(m 十 2m) (上 ) 二 省) (6) 和 2 


(mm 十 2m) 二 0. 
于 是 方程 (18.91) 成 立 ， 

类 似 的 证 明 ， 读 者 可 参见 [20, 第 49 页 ] 和 [29, 第 48 页 ]. 

有 了 这 些 准备 之 后 ， 我 们 可 给 出 积分 误差 (18.89) 的 表达 式 . 参见 [20, 第 162-163 页 ] 和 [29， 
第 134 页 ]. 

定理 18.8 积分 法 则 [18.58) 的 积分 误差 是 


人 


史册 二 (mm 十 2mP)! 


六 
/ Q(z)o(z)dz 018.93) 


其 中 a<<<14. 
证 明 根据 18.91, 对 于 a<z<b 被 积 函 数 f(z) 可 表示 为 


n+2m(E(a)) 


jz) = 鼠 (z) + 一 站 下 2 Q(z) (18.94) 
其 中 a< sz) < 5 由 于 
Ja)) 一 十 2n1 人 ee， 
对 于 ae<z<b 我 们 有 一 个 连续 函数 Fom+2n")(E(z))， 
对 jF(z) 的 表达 式 (18.94) 积分 ， 可 得 到 
6 
/ jz)jo(z)dz = 几 吾 (z)w(z)dz (18.95) 


十 奈 吉 用 jn+2n(E(z))G(z)w(z)dz. 


择 值 多 项 式 豆 (z) 的 次 数 小 于 等 于 噬 +2n -1 因此 它 被 精确 地 积分 : 


bb ?7 十 亿 3 十 和 
/ 五 (zj)w(z)jdz == Wi 克 (zi) 一 zi (Zi). (18.96 ) 
人 4 一 工 一 芋 
另 一 方面 ， 在 区 间 [oj 上 ，@(z) 的 符号 是 国定 的 . 利用 广义 的 积分 中 值 定 理 [19, 第 477 页 ], 对 
于 a< 上 < 由 可 得 


b bb 
/ Fnm+2n(E(z))Q(z)w(z)dz = nm+2n)(E) 1/ Qtzjw(z)jdrz. (18.97) 
将 (18.96) 和 (18.97) 代入 (18.95), 得 到 
忆 7m 十 了 (mm 十 27m) 坊 
/ FIm+2n)(E(z))dz 一 >》， iczi) 十 1 Q(z)jw(z)jdrz (18.98) 
Q | ”va 


其 中 a <E < 于 是 方程 (18.93) 成 立 . 
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在 本 章 中 ,我们 说 明 怎 样 利 用 MAPLE 得 到 Runge-Kutta 显 式 公 式 . 在 数值 分 析 中 ， 它 用 于 求 
解 一 阶 微分 方程 组 . 我 们 将 说 明 怎 样 构造 Runge-Kutta 显 式 公 式 系数 的 非 线 性 方程 组 ， 以 及 怎样 
求解 它 . 在 本 章 末 尾 ， 我 们 给 出 构造 给 定 大 小 和 阶 数 的 Runge-Kutta 显 式 公 式 的 全 部 过 程 . 我 们 
将 看 到 ， 这 样 用 途 广 泛 的 程序 能 求解 多 大 的 方程 . 

用 zk 附近 的 Taylor 级 数 ， 可 以 近似 初始 值 问题 


y (z) = zy(z))，V(zk) = 加 《19.1) 


的 解 . 即 通过 重复 微分 法 ， 并 在 每 次 Y (z) 出 现时 都 用 jz,y(z)) 代替 . 


zy(zk 十 瑚 ) 一 》 yG(zk) 生 
= yzh) 二 hf(zuycn) 十 世 ( 训 Fey(z))。) 二. 
一 V(zk) 十 疡 (FLzk,y(zk)) 


二 (Fa(zk,g(zh)) 二 (zkyg(zb) 户 (zygze))) 十， 


(19.2) 





王 (zk,2(zk), 贿 ) 


只 利用 (19.2) 中 的 几 项 ， 其 中 心 是 充分 小 ， 并 从 点 zk+1 = zz 十 疡 重复 计算 ， 便 可 计算 出 (19.1) 解 
的 数值 近似 . 

Runge-Kutta 方法 的 思想 是 ， 只 利用 Frz,y(z)) 的 值 ， 而 不 用 它 的 导数 ， 来 近似 阶 数 不 超过 mm 
的 Taylor 级 数 (19.2). 例如 ， 改 进 Euler 方法 的 Taylor 级 数 ， 


疡 屎 
Vi+l 三 攻 十 灵 Fzk 十 ,gr 十 jh， ZK 让， (19.3) 


与 (19.2) 中 不 超过 大 的 系数 均 相 同 ， 即 直到 mm = 2 阶 . 在 本 章 后 面 ， 将 证 明 此 结论 . 
Kutta[9] 用 公式 表示 出 Runge-Kutta 公式 的 一 般 方 案 ， 有 如 下 形式 : 假设 s 是 一 个 整数 (“ 阶 
段 数 " ),ai jbiy ci 是 实 系 数 . 于 是 称 方法 


K1 一 上 (7z， 2y)， 
Ap2 三 jz 二 co2 凡 1 十 7 刀 a21Kl)， 
3 一 了 
FF。 三 jc 十 csjy 十 姑 》 asjj)， 
5j=1 
更 (Z， 2， 丈 ) 一 Dj 
4“ 一 工 


Vk+1 三 其 十 瑚 王 (7ZKE VE 肠 )， 
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是 一 个 s 阶段 的 Runge-Kutta 显 式 方 法 . s 也 是 用 于 计算 yk+i 所 需 上 值 的 个 数 . 这 样 一 个 Runge- 
Kutta 方案 ， 可 用 (s +3s 一 2)/2 个 aijpci 变量 定义 ， 在 文献 中 ， 用 下 列 系 数 表 表示 这 样 的 方 
法 ， 已 经 成 为 惯例 : 





一 个 mm 阶 的 s 阶段 Runge-Kutta 方法 是 由 下 面 两 步 组 成 : 
1. 由 条 件 ， Runge-Kutta 公式 和 解 的 Taylor 级 数 必 须 在 mm 阶 以 下 要 一 致 ， 以 便 能 构造 出 参数 为 
aijpici 的 非 线 性 方程 组 ， 而 且 
2. 此 方程 组 要 么 可 解 ， 要 么 证 明 是 不 相 容 的 ， 
到 目前 为 止 ， 第 二 步 更 加 困难 (参见 [12, 4, 2]). 在 SIGSAM Bulletin[8j 的 问题 部 分 中 ， 提 出 了 产生 
Runge-Kutta 方程 的 问题 ， 但 是 从 没有 答案 . 
在 下 一 节 ， 对 于 s=3 和 和 mn=3, 我 们 将 用 MAPLE 解 第 一 步 和 第 二 步 . 


19.2 ”参数 方程 的 导出 
为 了 得 到 Runge-Kutta 公式 中 参数 的 方程 组 ， 我 们 必须 计算 解 y(z 十 凡 ) 和 Runge-Knutta 公式 
的 Taylor 级 数 ,， MAPLE 知道 怎样 对 两 个 参数 都 依赖 z 的 函数 求 微分 ， 即 
> diff(f(x，y(x))，xy) ; 


Di(f)(e, ylz))+ Da(f)(z, ye) (y(a) 


其 中 Di(j)(z,yz)) 是 矿 关 于 第 一 项 的 微分 ， 即 万 (z,y(z)). 对 MAPLE 中 D 算 子 的 进一步 讨论 ， 
读者 参见 [10, 11]. 

下 一 个 问题 是 ， 当 Y (z) 出 现时 ， 用 jz,y(z)) 代替 它 ， 有 几 种 处 理 方法 . 一 种 方法 是 利用 过 
程 diff 提供 的 界面 ， 它 允许 用 户 安 装 自己 的 微分 函数 (注意 ， 因 为 diff 记得 每 个 函数 调用 ， 
所 以 只 有 重新 启动 MAPLE, 才能 生效 . ) 


> ITesStaTt ; 
> “difft/y“′ := (a，X) -> f(a，y(a))*diff(a，xX) : 
> diff(Gy(Gx)，xX) ; 


f(z, y(z)) 


> diff(y(Cx) ，X$2) ; 
Di)tz ytzj) 二 Da(j)(z y(z))fz y(z)) 
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另 一 种 方法 是 用 自己 的 定义 ， 重 写 算 子 y 的 微分 . 当 带 有 参数 y 的 D 被 调用 时 ， 返 回 用 户 定 义 的 
过 程 . 用 此 定义 ， 可 计算 yz+j 在 疡 = 0 附近 的 Taylor 级 数 ， 这 正 是 我 们 所 要 的 . 我们 认为 这 
是 最 好 的 解法 ; 

> DYyY) :=X -> TIX，yGx)): 

> taylor(y(x+h)，h=0，3) ; 


y(z)+ffz, y(z) 庆 + (Di(P)(z, y(z) 十 Da(P(z,y(z))ftz,y(z)) 记 十 O(M) 


此 级 数 是 正确 的 ， 但 是 ， 由 于 fj(z,y(z)) 微分 的 复杂 符号 ， 它 非常 难以 阅读 . 因此 我 们 引入 微分 的 
alias 定义 ， 它 使 得 表达 式 具 有 可 读 性 . 这 样 我 们 便 得 出 yz) 前 几 项 微分 的 著名 形式 : 


> alias(F = f(x,y(x)) ， 

> E[xj = D[I1J(Ct)(x,y(Cx))，FLy]j = D[2] (f) (xy(Cx) ) ， 

> F[Lx,x] = D[1,1t](t)(x,y(GCr))，F[x,y] = D[Ct,2](f)(x,yGCx)) ， 
> F[y,y] = D[L2,2] (f)(x,y(Cx))) : 

> diff(E， 基 ) ; 


丽 十 瓦 正 


> diff(F，x$2) ; 
Fr,z 十 Fay 开 十 (Fey+TToyz) 开 十 FFz 十 Zoo 民 ) 


> 上 aylorCy(x+h)，h=0，3) ; 
y(zZ) 十 五 刀 十 ( 书 十 二 羽 王 ) 玉 十 DO(P) 
为 了 计算 函数 下 的 Taylor 级 数 ， 它 在 一 般 Runge-Kutta 方案 中 被 定义 ， 我 们 必须 计算 表达 式 
Ri 一 jz 十 cihy 十 鸭 卫 可 aijjbi) 在 关 =0 附近 的 级 数 . 这 也 可 简单 地 用 命令 taylor 执行 . 对 于 
多 变量 的 Taylor 级 数 展开 ， 可 用 本 数 mtaylor, 但 是 我 们 的 情况 不 需要 这 样 做 . 

> taylor(f(x+h，y(x)+h) ，h=0，3) ; 

楞 十 ( 丽 十 瓦 ) 太 十 (3 了 丽 由 委 十 OU) 

为 计算 解 y(z) 和 Runge-Kutta 公式 的 Taylor 级 数 ， 现 在 我 们 准备 一 些 工 具 . 然后 我 们 计算 3 阶 
(mm=3) 3 人 阶段 (s=3)Runge-Kutta 公式 的 系数 . 

加 


> taylor(y(Cx+h) ，h=0，im+l) ; 


1 1 
二 玉 本 十 二 三 三 ) 玫 ? 十 


| 1 1 
y(z) + 本 + 丽 同 妥 二 (及 ,= 十 Rs 开 +E 矶 yF2 上 + 5 


3 6 
O(h) 
> TaylorPhi := normal((convert(" ，Polynom) - y(Cx))Vh) ; 
TavyiorPpi :一 


严 十 了 本 十 5 用 配 严 二 


工 


1 1 
5 妥 配 ,= 十 了 央 术 下 + 二 央 丽 y 本 二 5 肛 玉 杞 二 有 太 ?F 
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convert 命令 将 Taylor 级 数 转 变 成 一 个 多 项 式 ， 即 它 含 去 O 项 .变量 TayiorPhiz 对 应 方程 (19.2) 
的 更 . 

对 于 Runge-Knutta 方案 ， 可 得 下 列 Taylor 级 数 . 注意 ， 我 们 保留 参数 ui,bici 仍 为 符号 对 
象 . 
Xk[1] :=taylor(f(x，y(x))，h=0,m) : 
Kk[2] :=taylor(f(x+c[2]*h,y(x)+hy(af2,1]*k[1])) ，h=0,m): 
X[L3] :=taylor(f(x+c[3]*h,y(x)+hy(a[3,1]*k[1]+af3,2]*k[2])) ,h=0O ,m) : 
RungeKuttaPhi := Series(b[i+]*k[l]+b[2]*k[2]+b[3]*k[3] ，h，m): 
RungeKuttaPhi := convert(RungeKuttaPhi，Ppolynom) ; 


VCVYVMVMVV 


ugeKtUttaPhr :一 b 天 十 加 下 十 0 三 
十 (pb2 (Frzcz 十 Era2l 已 ) 十 ba(Eecs 十 机 as1 忆 十 书 as as 五)) 瑚 十 ( 


| 1 1 
ba (本 Fe,zc2 十 czFzvaz1 珠 十 了 21 开机)+ba( 了 有 zc3 十 caPvaaiF 


工 1 
十 cs3 丰 zy 3,2 天 十 林 03,1 Ts 十 aa,1 天 yas 2 十 03,2 下 FEyy 二 as2 有 C2 
十 E ”aa,2a2,1 互 )) 有 2 


多 项 式 TaylorPja 与 RungeKutiaPhi 的 差 4 应 为 0. 考虑 了 是 尹 已 媚 , 瑟 ,有 =。 等 未 知 数 的 一 个 多 项 
却 ， 我 们 令 此 多 项 式 的 系数 为 0. 于 是 我 们 得 到 的 非 线性 方程 组 (19.4) 一 定 可 解 . 


> QQ := expand(TaylLlorPhi - RungeKuttaPhi) : 
> eqns := {fcoeffts(d， [h,F,F[x]j,F[y],F[x,x],F[x,y]j,F[y,y]])}; 


ed723 :一 { 一 bp3ca3 一 bg2co2， 一 六 02c22 一 二 Dac3? 十 二 
寺 一 baas,2a2,1, 一 baa3,2ca 十 二， 
一 baaa,1a3,2 一 3psa3,22 一 地 baa2.12 十 二 一 二 baa3 12， (19.4) 
1 一 bs 一 po 一 , 于 一 bacsa3sl 一 bocaa21 一 bscsas,2， 
一 psaa3,2 一 bza2 1 十 志 一 bsas1} 


> vars := indets(eqns); 


Vars :一 {aa,1，c2，a3,1，a3,2，c3，b1，b2，p3} 


19.3 解 方 程 组 


在 这 一 节 , 我 们 讨论 求 Runge-Kutta 公式 的 第 二 步 , 即 如 何 求解 非 线性 方程 组 (19.4) 的 问题 . 
注意 ， 我 们 必须 处 理 一 个 未 知 数 的 多 项 式 方 程 组 . 对 于 此 类 问题 ， 有 特殊 的 算法 . 

我 们 描述 两 个 算法 ， 它 们 用 计算 机 代数 系统 求解 多 项 式 方 程 组 . 第 一 个 算法 是 基于 多 项 式 理 
想 的 Grobner 基 理 论 ， 第 二 个 算法 是 利用 多 项 式 结 式 执行 非 线 性 消去 法 .对 这 两 种 方法 的 进 -- 步 
介绍 参见 [5]. 

但 是 ， 我 们 首先 试 试 MAPLE 的 solve 命令 . 此 命令 利用 代入 法 这 种 自然 的 方法 ， 求 解 方 程 
组 . 对 于 (19.4), 这 个 方法 相当 好 . 因为 后 面 我 们 将 看 到 ， 方 程 组 几乎 是 三 角形 形式 . 在 [6] 中 详细 
地 摘 述 了 这 种 用 MAPLE 的 solve 命令 的 代入 算法 . 


> sols := solve(eqns，vars) ; 
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sols := {pa = bs 人 一 1-6bc 十 1 十 12b8 cs- 
4 bo%l >” 4 六 区 1 ) 
2 3%1 34 co 一 4bac+l 。 -2 和 1 
3 2baca 一 工 4 9561 3 2bscs 一 1 
4 和 一 12 妈 ca 一 1 二 12 妈 ca 
4 21 
人 一 0 oz 一 aa oa 一 于 om 


oo1 :一 一 1 十 353ca? 


这 样 ， 对 于 s = 3, 我 们 得 到 两 个 (参数 化 的 ) 解 ， 可 由 下 面 的 系数 图 表 表 示 . 注意 , 在 第 一 个 解 中 ， 
未 知 数 cs 和 bs 是 自由 参数 ， 即 它们 可 取 任 意 值 . 在 解 集 中 ,用 cs = cs 和 ba = 扫 表示 对 于 第 
二 个 解 ， as 是 自由 参数 (参见 图 19.1). 如 果 令 aa,2 = 2/3, 由 第 一 个 解 可 得 3 阶 的 Heun 方法 . 


加 19.1 3 阶 Runge-Kutta 方法 的 3 步 







0 
2 3bac3 一 1 2 3paca 一 1 
忆 2pascs 一 1 2ba3cs 一 1 
1 一 6bacs 十 1252c3 2bscs 一 1 
C3 453(35scZ 一 1) 45s(3bacZ 一 ] 





12bscs 一 1 十 4bs 一 12bsc3 3 (2bacs 一 1) b 
12bsc3 一 4 4 1 一 3bacs 3 


现在 我 们 将 提出 解 方程 组 的 另外 两 个 方法 . 
19.3.1 _ Grobner 基 


计算 机 代数 中 ， 关 于 多 项 式 的 广泛 多 样 的 问题 ， 可 用 多 项 式 理想 表示 . 这 类 问题 的 一 些 例子 
就 是 关于 (多 项 式 ) 边关 系 或 (多 项 式 ) 方程 组 解 的 简化 ， 

我 们 回忆 一 个 理想 的 定义 .给 定 一 个 域 买 上 的 多 变量 多 项 式 的 (有 限 ) 集合 忆 = { 万 , 户 …… 态 小 
则 定义 由 集合 玉 生成 的 理想 ( 玉 ) 是 


(E) 三 (及 , 户 万 ) 三 |wn E KE ， 
4 三 机 

即 (已 ) 是 所 有 多 项 式 的 集合 ， 这 些 多 项 式 可 由 环 中 多 项 式 的 组 合 来 构造 . 称 天 中 的 元 素 为 理想 

() 的 一 个 基 . 

Gr5bner 基 方 法 首先 将 给 定 的 集合 刁 , 变换 成 标准 基 G ( 称 为 一 个 Grabner 基 ), 使 得 (G) = 《人 FF 
然后 ， 求 解 带 有 (G), 而 不 是 (已 ) 的 问题 . 这 个 变换 过 程 通过 消去 多 项 式 集 合 的 项 来 完成 ， 它 类 似 
于 Gaussian 消去 法 的 过 程 . 从 一 对 旧 的 多 项 式 户 , 户 可 形成 新 的 多 项 式 P= a 户 +B 户 ,其 中 必 和 
B 是 适当 选取 的 多 项 式 . 通过 此 过 程 ， 一 个 接 一 个 地 将 变量 消去 (根据 特殊 的 顺序 ). 如 果 系 统 有 有 
限 个 解 ， 则 最 后 得 到 一 个 变量 的 一 个 多 项 式 ， 求 解 它 ， 并 代入 Grobner 基 的 其 它 元 素 ， 这 种 方法 
是 Gaussian 消去 法 的 三 角 化 过 程 的 推广 . 我 们 将 不 再 详细 讨论 计算 Grobner 基 的 理论 和 算法 ， 作 
为 入 门 ， 读 者 可 参见 上 四. 然而 ， 我 们 将 利用 在 MAPLE 中 实现 的 Grobner 基 算 法 [3 引 , 求解 我 们 的 方 
程 组 : 


> G := grobner[gbasis]j(eqns ， 
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> [b[1] ,b[2],c[2],a[2,1],a[3,1],a[3,2],b[3],c[3]]，P1lLex) ; 


2 2 
C:=|5 一 6b3 aas2cs 十 bs 一 1 十 3baas,2, po 十 6b3 as,2c3s 一 32p3a3s,2，c2 一 Q02,1， 
2 
3as,2aa 1 十 6a3s 2pacs 一 cs 一 2as2,6ao lpacs 一 3az1 一 6bacs 十 2, as1 十 a3,2 一 ca3， 


1 一 2bacs 一 4b3as 2 十 12532cs2aas >] 


最 后 的 方程 包含 三 个 未 知 数 ， 说 明 系 统 有 两 个 自由 参数 . 我们 可 从 这 最 后 的 方程 解 出 aas,>. 
> al3a,2] := normal(solve(G[7] ，a[3,2]1)) ; 
1 2 .23 C3 一 1 


32 4 玖 (二 十 3 区 co 


如 果 分 母 不 为 零 ， 则 此 表达 式 是 唯一 的 解 . 让 我 们 先 假设 是 这 种 情况 ,通过 Grobner 基 G 的 回 代 
过 程 ， 可 得 到 其 它 未 知 数 的 值 . 


> a[3,1] := normnal(solve(G[6] ，a[3,1])); 
1 一 6 ba ca3 十 工 十 12532c33 


5 


> ar[2,1] := normal(solve(G[51]，a[2,1])); 
罗 2 -1 十 3baca* 
9 28acs 一 工 


> Dormal(G[4] ) ; 


>  c[2] := normal(solve(G[3] ，c[2]))， 
2 一 十 3b3ca32? 
| 


> br[2] := factor(solve(G[2] ，b[2])) ; 
3 (22pa3 C3 一 1)? 


pb2 :一 一 一 一 一 一 一 
4 一 1 十 323c3? 


> PbrIi] 


Dormal(solve(G[1] ，b[i] yy) ; 
1 403 一 12 pa3 cs 一 工 十 12 703 c32 
4 一 1 十 303c32 


我 们 得 到 与 直接 用 solve 命令 相同 的 解 . 


对 于 pb3(3b3ca3”? 一 一 1 ) 一 0， 将 多 项 式 32832c32 ps 加 到 由 后 者 GTrobner 基 的 计算 得 到 的 理想 上 ， 
可 得 另 一 个 解 . 首先 ， 必 须 对 这 些 参 数 赋值 . 


p1 : 


关 
> grobner [gbasis]([G[j，3*b[3] ”2*c[3] ”2-b[3]] ， 
> [b[Lij,b[2] ,c[2],al[2,1+]J,a[3,1] ,a[3,2J,b[3]j ,c[3]] ，PJLex) ; 


148 一 工 ， D2 ， C2 一 Q2, 1， 9a3s,2Qa2,1 一 2， 3a3,1 十 3a3,2 一 2 一 3 十 423， 3c3 一 3j 


这 对 应 于 用 solve 命令 计算 的 第 二 个 解 . 
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19.3.2 ” 结 式 


因为 两 个 多 项 式 六 ge BR[z] 的 结 式 可 消去 z, 即 resz(f9) e 及 , 所 以 用 结 式 求解 的 过 程 也 类 似 
Gaussian 消去 法 . 两 个 多 项 式 凡 9eBRz] 的 结 式 (写成 resz( 访 9)), 定义 为 上 和 39 的 Syjvester 算 阵 
的 行列 式 (参见 任何 代数 的 入 门 书 ， 如 [13]). 下 面 的 定理 (来 自 [5]) 说 明 如 何 利用 结 式 求解 多 项 式 
方程 组 . 

假设 下 是 一 个 团 的 代数 域 ， 并 假设 


37 也 也 
二 
?一 0 ?一 0 


是 zi 中 正 次 的 天 zi, .，,zr] 的 元 素 . 如 果 (at, ...,ar) 是 六 和 9 的 公共 零点 ， 则 它们 关于 zi 的 
结 式 满足 


reszi (ao2,...,ar) 王 0. 
反之 ， 如 果 TeSza (a2， 人 ,ar 】 一 0， 则 下 列 条 件 之 一 成 立 : 


am(a2,... ar) 一 bn(a2,... ar) 一 0， 

vz E 下 :jzao,. .ar)=0， 
VZEF:gzaz...,ar) 一 0， 

3al E 天， 使 得 (al,az, ,ar) 是 上 和 9 的 一 个 公共 零点 ， 


其 中 最 后 一 个 条 件 是 我 们 感 兴趣 的 . 
现在 我 们 利用 MAPLE 的 resultant 函数 ,将 方程 组 变换 成 三 角形 式 . 首先 ,收集 不 同 集 合 瑟 ; 
中 的 方程 ， 使 得 
万 j = {PE 下 [zi ,Zr] 一 下 [zi+1) .Zr]}. 


于 是 可 把 方程 看 成 Qilma ,as ba,cz,azi,as,2,ba,cs] 中 的 元 素 ， 并 定义 集合 下. 


X := [bLij,a[3,1]j,b[2]j,c[2j,ak2,1],a[3,2],b[3] ,c[3]] : 
for 1i to nops(X) do B[i] := {} od: 
for Pb in eqns do 
for 1 while not has(P，XEi]) do od ; 
B[i] := B[Li] union {pPrimpart(p)} 
od : 


MAVVVYMYYMV 


让 我 们 考察 集合 如;. 特别 地 ， 考 虑 每 个 集合 中 的 元 素 个 数 . 


> seq('B['.i.']': = B[i]，i=1..nops(X)); 


B[I]={-ba 一 十 1 一 与 } 召 [3 一 { 
-3bs as 2 一 3bao1 一 6baslas2+1 一 3bas1， 
一 2bs as,2 二 1 一 2ba21 一 2b3asl, 一 3bacza21 十 1 一 3bascaaa3s,l 一 3b3casas.2}， 
B[3?] = {-2b%3cs 一 2bcz 二 1 1 一 3bcz 2 一 3bscs ,DB[I4 人 = 人 1 一 6baas zcz)}， 
Bl5] = {-6bsaa,2a21 十 1] Bl = TBJ= 人 1 B = 二 





已，GruUTLtZ 
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于 是 ， 从 Bs 中 的 两 个 元 素 可 消去 2, 给 出 集合 B4 的 另外 一 个 元 素 ， 因 此 也 有 两 个 元 素 ， 由 这 两 


个 方程 消去 ca, 可 得 到 Q[aa,>,ba,cs] 中 的 一 个 结 式 ， 将 它 加 入 Be. 


> Primpart (resultant(B[3] [1] ，B[3] [23 ，b[2])) ; 
3 c2? 6c2? pa ca3 人 2co> 十 6co2 Da ca3? 


> B[4] := B[4] union 1 人 上: 
> primpart(resultant(B[4] [1t] ，Bf[4] [2] ，c[2] ) ) ; 
1 一 2p3scas 一 483as,2 十 128b3“ cs? C3,2 


> B[6] := B[6] union 1 上 : 
从 上 面 的 计算 可 知 ， 整 个 系统 有 两 个 自由 参数 ， 因 此 我 们 停止 这 个 过 程 ， 并 开始 回 代 这 个 解 . 我 们 
将 仅 构 造 第 二 个 解 ， 当 4ba(3bacs” 一 1 夭 0) 时 ， 它 是 有 效 的 . 
normal(solve(Bf6]j [1] ，a[3 ,2] ) ) 


2bacas 一 工 


> ar[3,2] := 
有 
4 和 (-1 十 3 和 5cs2) 


> ar[2,1i] := normal(solve(B[5] [1] ，a[2,1])); 
2 一 1 十 3pac3? 


人 3 2pba3 cs 一 荆 


> cf[2] := normal(solve(B[4] [1] ，c[2]7)) ; 
2 一 1 十 3p3 c3? 


0 3 2 pa ca 一 1 


normal (solve(B[3] [1] ，bf2]) ) ; 
3 (2 pa3 C3 一 1)” 

B2> :一 一 一 -一 一 一 一 一 

4 一 十 3 ba3 ca32 


> br[2] := 


> af[3,1+] := normnal(solve(B[2] [2] ，a[3,1] )); 
1 一 6ba cs 十 1 十 12 0532 c33 


43,1 :一 4 ba (一 1 十 323 c32】 


Dormal(solve(B[1] [1] ，b[i]y) > ; 
14bs 一 12bacs 一 1 十 1253c3? 


D1 : 
4 一 1 十 3bsca3? 


我 们 得 到 与 用 Grobner 基 的 相同 结果 ， 
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19.4 完整 的 算法 


在 本 节 中 ,我 们 把 所 有 用 于 获得 s = 3 的 Runge-Knutta 公式 的 MAPLE 语句 ， 编 辑 成 一 个 称 为 
RungeKutta(s,m) 的 MAPLE 过 程 . 它 可 计算 任意 mm 阶 s 阶段 的 Runge-Kutta 方法 的 系数 不幸 
的 是 ， 对 于 s> 3 的 值 , 用 MAPLE 和 其 它 计 算 机 代数 系统 不 能 直接 求解 这 些 方程 . 多 项 式 方 程 组 
已 经 变 得 太 复 杂 ， 它 可 通过 加 上 所 谓 的 对 称 条 件 


z 一 | 
Ci 一 》 Ci 一 
了 一 | 


简化 . 对 于 微分 方程 yY = 1,y(0) = 0, 我 们 要 求 在 z+ ci 点 的 所 有 预测 值 ys = 十 呈 ai ji， 凡 
该 与 通过 插入 精确 解 y(z) = z 所 得 的 值 相 同 ， 这 样 可 得 到 此 对 称 条 件 . 用 这 些 附 加 的 条 件 ， 可 计 
算 阶 为 mm =1...,4 的 Runge-Kutta 公式 . 算法 19.1 是 完整 的 MAPLE 代码 . 
19.4.1 例 1L 

我 们 首先 对 参数 s=2 和 宗 =2, 测 试 此 过 程 


> RungeKutta(2，2) ; 


{bi 一 1 一 bb 一 ba2l 一 ) C2 一 


p 
当 b =1 时， 得 到 改进 的 Eujer 





方法 (参见 方程 (19.3)). 当 如 = 1/2 时 ， 得 到 法 则 
天 
yk+1 二 多 十 可 CU(zeyp) 十 用 ze 十 帮 Uz 十 尹 FE)) 
这 就 是 著名 的 Heun 方法 . 
算法 19.1 RungeKutta 过 程 
RungeKutta := PIoc(s， 卫 ) 
Jocal TaylLorpPhi ，RungeKuttaPhi，Q，vars，eqns，K， 工 ，]; 
gJLobal a，b，c，hs; 
# IayJor series 
DCyY) :=X-> ff(x,y(CXx)): 
TaylorPhi := convert(tay1lor(y(x+h) ,h=0 ,m+t) ，Polynom) : 
Tay1LorPhi := normal((TayILIorPhi - yxX) )V/Ahy) ; 
# RK-AnSatZ : 
clLli]l := 0; 


for 1 from 1 to S do 
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K[ij := tay1Lor(f(x+c[i]*h，y(x) + 
sum(afi,j]*k[j]，j=ti..i-1)*h)，h=0，m): 
od : 
RungeKuttaPhi := 0: 
for 1 from 1 to ss do 
RungeKuttaPhi := RungeKuttaPhi + b[i] * kfi]: 
od : 
RungeKuttaPhi := series (RungeKuttaPhi，h，m): 
RunDgeKuttaPhi := ConVert (RungeKuttaPhi ， Polynom) ; 
d := expand(TaylorPhi - RungeKuttaPhi) : 
Vars := {seq(c[i] ，i=2..s) ， 
seq(Cb[i] ， i=1. .s) ， 
seq((seq(a[i,jj]，j=1..i-1))，i = 2..s)1}; 
eqdns := {coeffs(d，indets(d) minus vars)]; 
# SymmetIy condition: 
eqns := eqns union {seq(sum(a[i,j)]，?:j:=1..i-1) - 
cLij ，i=2..sS)}; 
solve(eqns ，Vvars) ; 


end : 
19.4.2 例 2 


在 这 个 例子 里 ， 我 们 计算 4 阶 的 4 阶段 Runge-Kutta 公式 . 
>  RK4 := RungeKkutta(4，4): 


>  RK4L2] ; 
1 工 1 1 2 3 1 
pp” 一 一 站 一 一 一 一 一 一 一 一 二 一，p3 一 一 ， 一 5 一 汪 业 
{p2 4 十 二 ，Q4,2 17 5 3 丽 ， 3 二 了 Q3,1 8 CQ3,2 8 C4 
一 1 十 4b 1 1 
一 ”一 一 -一 一 一 一 1 五 一 一 一 如 一 已 
6 二 二 沁 0 1，c2 1 二 有， 24 4} 


我 们 得 到 两 个 解 ， 其 中 一 个 解 有 一 个 自由 参数 %, 可 用 图 19.3 表示 它 . 


已 ，CGTmauintz 


一 个 解 有 两 个 自由 参数 cx 和 aa,?. 兄 项 代表 公共 的 子 表达 式 ， 它 被 显示 在 解 集 的 下 面 ，RootOf 


表达 式 代 表 二 次 方程 的 两 个 根 


576(1 一 lc2 一 2aa co 十 4aas 2c22)z7?2 十 24(ca 一 2)z 十 1 


>  RK4[1] ; 


1 005 
5 人 ,04 2 一 
288 (-cz 十 1 十 4as,zc22 一 2a3a zc2)%1(co 一 1， 4? 


一 c2 一 168%4 十 24%lca2 十 4aa aca3 十 192a3s 22c22 咱 1 _ 576as 22 cz3 %%1 
十 384%1ca2 as,2 十 24%1 十 264%%3 一 96 5%2 一 48%1lcas 十 aa ac 一 5asazcz2) /人 


区 一 C2，c4 王 1,，pb4 一 


工 
十 2c2 
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图 19.3 s=4.m 一 4 的 简单 解 





%1(-cz2 二 2coz 一 1 十 4aaazc23 一 6aa2c22 十 2aa， 2c2) 
C2 CQ3， 2 05 
1 96%2 一 24ILI 二 1 1 1 一 24%1 二 1 十 24%1as > 
52 一 一 一 一 人 到 
5706 (cz 一 1) 台 lc2 C3,2 C2 03,2 24 史 1 


0a3,2 5 c2”)， Q4,3 一 12 





1 

人 +co2 一 24 吕 1 十 24%1c23 十 96 吧 2 十 552 94 一 408 吧 3 十 72 和 1c? 
一 72 台 1ca2 -- 192as 22c22 1 十 960as 22c23 91 一 172801co as 2 

十 1152 3， 2 co22 %1 一 288 1 co4 Q3,2 一 Q3,2 C2 十 3 Q3， 2 c22] /aa 2 5%5 c22)， 


1 一 1 十 2401 1 288%%3 一 96%2 一 24 史 lc 一 1 十 2451 
1 一 一 一 一 一，C2 一 C2， 
2 兄 1 ”6 到 1 cz2as 下 


C3,2 -oa| 


%1 := RootOf(1 十 (-48 十 24ca)-2 十 (-576 ca 十 576 十 2304as,zc22 -- 1152 aa,2 cz) -Z”) 
02 := 名 1Lco as 。 

%3 := %lco aa > 

9%64 :一 %lcz aas > 

%5 := 120 中 lcz 一 48 员 1-- 672%3 十 192 听 2 一 96%lcz2 十 576%4 十 2cz 一 


Cc3 一 


从 这 个 解 ， 如 果 要 求 三 个 参数 aa li,a4al 和 aa4a 都 为 零 ， 则 可 得 4 阶 古典 的 Runge-Kutta 方法 即 
如 果 令 ez = 1/2 和 aa = 1/2, 并 取 多 项 式 288z2 - 36z 二 工 的 根 z = 1712, 则 可 得 到 它 


> ， solve(subs(RK4[1] ，{faf3,1]=0，af4,1]=0，a[4,2]=0j})); 


1 1 
{c2 一 7， C3,2 一 5 


> subs("，RK4[1L] ) ; 


1 1 一 12%1 十 1 1 1 
二 = 一 一 ,pa4 一 二， 一 一 一 一 一 一 一 ,50 一 4 荆 二 
li ) CQ2,1 7， 全 一 是 Q3,1I 24 吧 1 3 太 1，a4,3 2 36 9%%1 
3 9 
1-=+zr%il 1 4 1 -1 十 24 允 1 


1 
0 


汪 一 1 十 24 双 1 
0 0%1 


%1 := RootOf(1 一 36-2 +288_22) 
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DCTUT2tZz 
> allvalues(YX1) ; 
1 工 
24”12 
> subs(Y%1=17/12，21); 
工 | 工 上 1 1 】 
a4,1 三 0, a4,2 一 0, pb 一 地, a3,1 一 0, 03 一 了 cd4 一] 一 一 ,p4 一 一 二 二 :二 将: 二; 
{aa 1 4.2 2 二 93,1 3 3，54 02,1 二 Do4 二 1， 94,3 7 本, 53 一 了 
1 
总 


如 果 令 ca = 1/3 和 as = 1 则 得 到 两 个 其 它 的 Runge-Kutta 方法 ， 其 中 之 一 是 ， 根 据 它 的 权 访 ， 
对 应 多 项 式 256z2 -~ 40z 十 1 的 根 1/8 的 方法 ， 称 为 3/8 法 则 . 


> subs(c[2]=1/3，a[3,2]=1，RK4[1L] ) ; 


工 
11_1， 32  %1 ， 3 -81 一 子 
一 上)，CL2,1 一 T， DT 一 md43 一 一 一 “4 TEA ? 
3 3 3 0 256 万] 
14 176 of 
9 区 + 有 人 11 工 1691-1 。_- 工 二 十 24%%1 
5351 24891 1 64 9 ”24 9%L 
了 
4 160 of1 
99” Do7 3 8X0L 十 1 
ai = 了 于 一 人 一-， 一 ,bt 一 3%1,cs=1 
一 8%1 一 二 
%1 := RootOf(1 一 40-.3 十 256 2) 
> alLllLvalues(p1L) ; 
1 1 
32 ”8 
> Subs (X%1=1/8，"”") ; 
L 1 一 荆 纪 3 
(1L=Dboai=a 了 = 了 cbaes= 了 b 交 = 间 oa 可 ,2 
2 1 
一 二, 
C3 3， 1 5 
这 两 个 方法 的 系数 如 下 所 示 : 
图 9.4 古典 Runge-Knutta 方法 图 9.5 3/8 法 则 





0 0 
1 | 上 
去 | 到 | 3 
2 | 上 
0 3 | 
110 0 1 1 -1 
1T 1 二 
6 5 
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19.5 ”结论 


我 们 已 经 说 明 ， 为 了 得 到 Runge-Knutta 显示 公式 定义 的 方程 ，MAPLE 是 非常 有 用 的 . 注意 ， 
我 们 没有 试图 简化 这 些 方程 . 简化 技术 是 著名 的 . 我 们 构造 的 方程 是 强制 处 理 公 式 的 结果 ， 从 而 ， 
只 能 得 到 不 超过 4 阶 的 Runge-Kutta 公式 . 更 高 阶 的 方程 仍然 太 大 ， 以 致 用 今天 的 计算 机 代数 系 
统 无 法 求解 . 

早 在 1966 年 ，Moses 就 曾 猜 想 , 用 一 个 计算 机 代数 系统 不 能 建立 对 应 5 阶 5 阶段 Runge-Kutta 
方法 的 方程 组 著名 的 不 相 容 性 [23]. 对 今天 的 计算 机 代数 系统 ， 这 仍然 有 效 . 因此 ， 必 须 改 进 求解 
多 项 式 方 程 组 的 算法 .一 个 研究 方向 是 利用 方程 的 对 称 性 . 

这 一 章 也 证 明了 ， 为 了 构造 直到 10 阶 (17 阶段 ) 的 Runge-Kutta 公式 [7], 数学 家 努力 简化 方 
程 组 是 正确 的 . 
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第 二 十 章 ” 双 相 半 波 整 流 器 的 瞬时 反应 


五 .JJ 达 alim ad 尺 . otirepel! 


电路 是 由 线性 微分 方程 组 所 描述 的 典型 例子 ， 这 些 方 程 的 系数 为 常数 或 随时 间 而 变化 ， 在 时 
间 域 里 对 这 类 系统 进行 数值 模拟 是 十 分 困难 的 ， 尤 其 当 系统 非常 大 且 具 有 广泛 分 布 的 离散 特征 值 
时 .分 析 电 路 的 方法 已 经 有 好 几 本 参考 书 介绍 ， 如 [2]. 市 场 上 也 有 大 量 的 计算 机 辅助 分 析 的 软件 
包 ， 其 程序 往往 沿用 诸如 ECAP[3] 或 SPICE2[5] 的 代码 . 这 些 程序 完全 使 用 数值 计算 方法 ， 因 而 
也 就 有 了 一 些 知 名 的 支持 者 和 反对 者 . 

下 面 将 用 MAPLE V[] 特有 的 分 析 能 力 和 精度 来 求解 一 个 小 的 但 是 很 有 技巧 的 电路 问题 . 它 
能 大 致 地 说 明 ， 为 什么 模拟 双 相 半 波 整流 器 的 瞬时 反应 这 种 问题 ， 在 许多 方法 中 都 是 需要 很 高 技 
巧 的 问题 . 这 一 点 后 面 会 有 更 详细 的 介绍 . 

光 是 运用 数学 模型 的 常规 程序 来 求 数 值 解 是 不 够 的 .必须 借助 于 某 些 技巧 以 克服 下 面 将 会 讨 
论 的 一 些 数 值 计 算 中 的 困难 . 这 就 是 为 什么 缺乏 经 验 的 分 析 者 往往 不 能 在 进行 这 类 仿真 研究 时 马 
上 上 成功 的 原因 ， 


20.2 ”问题 概述 


将 要 研究 的 问题 是 ， 当 两 个 交流 电源 作为 外 部 驱动 函数 放 入 电路 以 后 ， 模 拟 双 相 半 波 整 流 器 
的 电流 瞬时 反应 . 这 个 问题 最 早 在 文献 [4 中 被 介绍 . 模型 的 结构 如 图 20.1 所 示 . 电路 的 组 成 是 : 
两 个 理想 的 二 极 管 Di 和 Daz, 两 个 电阻 和 两 个 电抗 ， 各 为 Ra 、RRa 、LLi 和 并, 两 个 开路 的 电源 
wat 、 zu2(t, 负载 则 用 电阻 Ra 和 电抗 Zs 表示 . 流 经 二 极 管 的 电流 分 别 为 2( 如 和 j 记 ( 划 , io(b 是 
整流 后 的 电流 ， vs() 是 整流 后 的 电压 . 时 间 用 上 表示 . 


图 20.1 整流 系统 的 结构 
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根据 二 极 管 的 导 通 状态 可 分 为 三 种 不 同 的 情况 . 具体 运用 哪 一 种 取决 于 与 时 间 相 关 的 变量 
diod; 和 diod2 的 逻辑 值 . 以 后 我 们 会 定义 这 些 变量 ， 但 我 们 要 强调 的 是 ， 使 用 它们 只 是 为 了 令 
述 方便 . 在 后 面 的 程序 列表 中 ， 这 些 变量 并 未 显示 地 表示 出 来 . 
1. 仅 有 二 极 管 导 通 .， 即 dodi = 杂 Ue 和 dtiod2 一 falfse: 


间 芭 21 一 21 天 
元 宝 2 (20.1) 


C2 


生 训 人 -= 0 《20.2) 


2. 仅 有 二 极 管 刀 * 导 通 . 即 dzodl = False 和 diod2 一 ttue: 


d . 
Lu2 一 ?2 瑟 23 


d 
一 2 人 (ti 一 一 -一 一 20.4 


3. 二 极 管 万 和 二 极 管 万 。 都 导 通 . 即 diodl = 好 tue 和 diod2 一 trtue: 


Sa 人 CIiU1I 一 2 Z131 一 Z222 (20.5) 
和 人 272 下 2Z332 一 24231 (20.6) 
其 中 
4 一 了 2 十 忆 3 
C2 一 了 十 了 3 
= Di72o 二 DrFas 十 7Do7as 
Ra 一 民 十 玉 3 
ls 一 ao 十 且 3 
2 一 CE 十 了 2 的 3 
z2 一 了 :> 玉 3 一 了 3 瑟 2 
za 一 02 有 2 十 了 1 有 3 
24 一 了 1 已 3 一 也 3 瑟 ] 


注意 任何 时 候 这 三 种 情况 只 有 一 种 成 立 ， 而 第 四 种 情况 即 两 个 变量 都 是 false 是 没有 意义 的 ， 除 
非 是 电源 没有 连结 的 稳 态 情况 . 对 diodi 和 diod2 的 值 引 入 有 关 的 条 件 以 后 ， 我 们 便 可 讨论 在 任 一 
给 定时 刻 与 这 三 种 情况 哪 一 种 有 关 的 必要 条 件 . 

整流 电压 us( 志 和 整流 电流 is 父 分 别 为 


so 一 Ra 十 认 ) 十 Za Eee 十 Sa (20.7) 
和 (人 ， 看 千 庆 ， (20.8) 

电压 a (tb 和 (tb 写作 
Wit) 一 Usin(wt) (20.9) 


zw2(t) 一 一 2a(t). (20.10) 
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其 中 


U = V2Ueyy 


而 且 


ww 一 2IIz. 


其 中 Verr 是 有 效 电 压 而 ” 是 频率 . 
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(20.11) 


(20.12) 


为 了 说 明 哪 个 二 极 管 是 导 通 的 ， 我 们 已 经 引入 了 两 个 逻辑 变量 dodl 和 diod2. 在 任何 时 刻 纪 


这 些 变量 的 逻辑 值 由 以 下 条 件 控 制 : 
diod， 三 人 人 (20.13) 
False 反之 
二 | tire ”如果 >0 或 者 2 > 19， (20.14) 
False 反之 


现在 研究 在 时 间 闻 陋 为 tstart 区 蕊 艾 zt Finat 期 间 的 瞬时 状态 ， 此 处 tstart 和 zt Finat 代表 模拟 时 间 段 的 


上 端 值 和 下 端 值 . 


研究 中 会 用 到 以 下 值 : 
R = 2[9] (20.16) 
Rs = 10m] (20.17) 
7 = 0.04[HI] (20.18) 
7 = 0.04[H] (20.19) 
1a = 0.20[H (20.20) 
Uefy = 100[V] (20.21) 
>” = 50[Hz]. (20.22) 
选择 初始 条 件 为 
ii(0) 一 0 (20.23) 
ia(0) = 0. (20.24) 


20.3 应 用 常规 编程 和 软件 包 的 困难 


使 用 Runge-Knutta 一 类 的 积分 算法 来 求解 上 述 问 题 ， 分 析 人 员 必 须 编 写 主 程序 或 编写 调用 积 
分 子 程序 的 过 程 . 这 些 调用 包含 在 DO 循环 之 中 ， 是 在 积分 程序 控制 之 下 运行 ， 直 到 积分 程序 完 
成 了 在 独立 变量 的 指定 区 间 内 的 积分 当 程 序 控制 回 到 主 程序 时 ， 就 得 到 上 一 段 区 间 的 解 并 把 它 
输出 . 然后 ， 用 上 一 段 区 间 解 的 值 作为 初 值 ， 再 在 下 一 段 区 间 重 新 调用 积分 子 程 厅 . 

在 积分 过 程 中 ， 积 分 子 程序 要 调用 由 分 析 人 员 提 供 的 “函数 赋 值 : 的 过 程 . 这 时 ， 独 立 变 量 上 的 
当前 值 ， 大 量 的 一 阶 常 微 分 方程 和 在 时 刻 上 的 解 向 量 ， 都 被 传递 给 相关 过 程 . 这 些 过 程 基本 都 包 
含 微分 方程 的 代码 ， 即 方程 (20.1-20.5) 以 及 (20.15) 等 等 式 所 给 出 的 和 常数， 它们 是 主 程序 引入 的 局 
部 变量 . 然后 才 可 能 去 计算 微分 方程 右边 的 值 ， 并 把 含 时 间 的 解 癌 量 返 回 给 积分 子 程序 . 
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在 给 函数 赋值 之 前 ， 还 必须 从 (20.13) 确定 变量 diodil 的 dod2 的 逻辑 值 ， 以 便 决 定 应 用 三 种 
情况 中 的 哪 一 种 两 个 常 微分 方程 的 系统 . 由 于 要 用 (20,13) 的 we 值 来 求 wioai 的 diod> 的 值 ， 显 
而 易 见 出 现 了 一 种 隐 含 的 关系 . 为 了 计算 束 和 和 量 记 的 值 ， 必 须知 道 整流 电压 wo. 然后 才能 找 出 
diodi 和 diodz, 最 后 可 以 从 给 定 的 情况 得 到 和 ia 和 千 ?2. 

为 了 解决 这 个 困难 ， Jentsch 在 团 中 提出 ， 使 用 延迟 > 秒 以 后 的 we 值 ，7 是 一 个 时 间 小 量 . 
在 (20.13) 中 使 用 的 延迟 值 wea 为 


at- 一 Ti 如 果 寺 >T7 
0-1 0) 如 果 zi<7 


注意 这 等 价 于 


uoa(s) = ereuo(s) 


也 就 是 在 运用 标准 的 工程 技术 时 ， 对 线性 问题 运用 Laplace 变换 的 结果 . 

在 数值 计算 中 woa(b 是 靠 在 veo(a) 和 we( 人 ti)， (= 1 2,...) 之 间 的 插值 来 求 得 的 ， 其 中 (志和 
ti 一 TS< 友 HL us 二 ) 和 veo(t+i) 各 是 第 ?一 1 和 ;个 积分 步骤 Ho 的 值 . 

在 to = tstart 开始 的 第 一 步 积 分 ,还 产生 了 另 一 个 困难 . 因为 两 个 初始 条 件 (20.23), 即 ii (to),zz(to)， 
两 个 激发 条 件 ， 即 wai(toj,uz(t 如 ) 和 ur 人 ) 全 部 为 零 ， 这 样 导 致 diodl = diod。 = jalse, 因此 也 就 无 
法 确定 应 用 哪 一 种 情况 . 

甚至 任意 假定 一 种 情况 有 效 ， 也 会 导致 钙 和 (to) = 多 和 (to) = 0. 显然 ， 从 物理 的 角度 来 说 ， 至 
少 应 该 有 一 个 二 极 管 导 通 ， 因 为 在 上 = t 如 时 ，xw(t) 有 一 个 正 的 导数 ， 而 wz 人 (t 有 一 个 负 的 导数 . 
这 意味 着 这 两 个 逻辑 值 中 至 少 有 一 个 为 真 . 因而 在 上 = ti 时 ， 决 定 diodli 和 diod2> 的 值 必须 根据 
attu2t)zolt) 的 导数 值 . 

在 给 出 了 diodl 和 diod2 的 初 值 以 后 ， 也 能 决定 如 +e 的 其 它 位 置 它 们 的 值 ， 这 里 e 是 一 个 小 
的 正 数 . 


20.4 用 MAPLE 求解 


用 MAPLE V[l] 求解 这 个 例子 ， 可 以 巧妙 地 如 开 上 面 提 到 的 数值 困难 . 

下 面 介 绍 一 个 程序 ， 它 用 来 计算 整流 器 的 瞬时 反应 ， 这 个 程序 由 三 个 文件 组 成 ， 分 别 是 
halfwave.map，data.map 和 Procs .map. 

我 们 的 程序 是 从 文件 halfwave.map 开始 . 重新 启动 后 ， 我 们 要 在 halfwave.map 中 读 入 后 面 
会 用 到 的 unassign 库 程序 . 然后 再 读 入 data.map 和 procs.map. 接着 要 给 出 ttart 和 tyinal 值 以 
说 明 变 量 上 的 范围 . 


halfvwvave .map 中 的 调用 序列 





readlib (unassign) : 

read ('data.map) ; 

read (procs.map') ; 

tStart := 0: 

tftinal := 0.050 : 

_ := Tectity_solve (array(1..2,[0,0])，tstart..tftinal) : 
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1g 
US8 


PJLot 
PlLot 
PJLot 
PlLot 


unapply(ifli](t)+if2](t) ,七 ) : 


unapPlLy(R.3*rig(t) + 工 .3+kdiff(ig(t) ,七 ) ,七 ) : 


(i[1L] ，tstart. .tfinal，title=“Plot 1: it(t)) ; 
(i[L2] ，tstart. .tfinal，title=“Plot 2: i2(t) 和 ) ; 
(ig，tstart. .tfinal，title='Plot 3: ig(t) ) ; 
(ug，tstart. .tfinal，title=“Plot 4: ug(t)) ; 
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微分 方程 的 积分 是 从 调用 rectify_solve 开始 ， 这 个 程序 作为 主 程序 列 在 procs.map 的 末尾 . 只 
要 知道 rectify-solve 返回 了 两 个 解析 解 ii( 区 和 ?2 人 作为 二 维和 撩 量 ddata 的 元 素 就 行 了 .， 只 要 
每 个 元 素 本 身 可 以 用 列表 表示 ， 解 析 解 是 可 以 分 段 求解 的 ， 注意 调用 rectify-solve 时 ， 两 个 状 
态 变 量 的 初始 值 和 模拟 时 间 的 范围 也 要 输入 . 在 本 章 最 后 会 介绍 在 halfwave.map 末尾 的 作 图 . 
注意 在 方程 (20.1-20.24) 中 使 用 的 下 标 在 程序 中 被 表示 成 园 点 加 下 标 ， 如 方程 中 的 Rs 在 程序 
中 被 标记 成 及 .3. 
在 文件 data.map 中 ， 外 部 驱动 函数 妇 的,vz 人 (区 是 预先 给 定 的 . 此 后 ， 问 题 中 某 些 必要 的 参数 
也 要 引入 . 在 文件 中 nof -cases 和 nof_states 分 别 代 表 了 在 整流 器 工作 时 会 遇 到 的 各 种 不 同情 况 
和 各 种 状态 变量 . 


U := 
DuU := 


Omega 


员 可 疙 和 包 让 
Ni 轴 有 


13 


data.map 中 微分 方程 的 解 


t -> U*sin(Omegar#t) : 
:= 七 -> -U*ysin(Omega#+t) : 


-~ Parameters 
sqrt(2)*100 : 


50 : 


:= 2Piynt: 


:= 2: 

:= LO: 

:= Convert (0 .04,Trational) : 
:= ConVert (0 .04,rational) : 
:= ConvVert (0 .2 ,rational) : 
:= 2 二 3 

:= 上 上 .1 + 工 .3: 


直 .1*L.2 + 工 .1*L.3 + 工 .2z#L.3: 
:= R.1+ 有 .3: 
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R.23 := R.2 + 有 R.3: 

2Z.1 := a.l*rR1 + 工 .2*rR.3: 
Z.2 := 工 .2xR.3 - 工 .3+rR.2: 
Z.3 := na.2+rR2 + 工 .1*R.3: 
Z.4 := 工 .1*R.3 -- 工 .3*R.1l: 
本 equat1ions 
nof_cases := 3: 
nof_states := 2: 


vars := {seq(j [k] (t) ，k=1..nof_states)j}: 
dqeqn := array 〈1..3，([ 
{t diff(jLij(t),t) = j[1i](t)*(-R.1i3/a.2) + uri](t)/a.2， 
diff(jL2j(t),t) = 0， 
j[1] (to) = jlto， 
j[2] (to0) = j20 
才 
{ difft(j[l](t),t) = 0， 
difft(j[2](t),t) = jf[2](t)*(-R.23/a.1) + ur2](t)/a.l， 
j[LlJ(to) = jl0， 
j[2] (t0) = j20 
时 
{ diff(j[ti(t),t) = jf[rl](t)*(-z.1/b) + j[2](t)*(-2z.2/b) 
+ 1/b*(a.t*uLlj(t) - 工 .3xu[2](t) ) ， 
diff(j[2](t),t) = jLl (t)*(-z.4/b) + j[2](t)*(-z.3/b) 
+ 1/br(a.2xuL2](t) - 工 .3xuf1i] (七 ) )》 ， 
]10， 
j20 


j[L1J (tO) 
了 [2]〈t0) 
]] ) : 


由 


亲人 gLobal Params 

eps := 1/nuyrl.0e-6; # get some :Telative; gap 
Digits := 14; 

_EnVvsignumnoO := 0; 


人 SolLVe the System for all cases 


unassign (kk ，,?t0，,，j10，,，j20?): 
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for k from 1 to nof_cases do 
dsol[k]j := simplify (dsolve (deqn[k] ，vars) ) : 
assign (dsol [Kk] ) ; 
for 贡 from 1 to nof_states do 
i[k] [n] := unapply (j[n]j(t) ,七 t0，jl10，j20) : 
od : 
unassign ()j[1](t)，,，j[2](t) 7) : 
od : 
随后 是 三 种 可 能 情况 对 应 的 三 套 微 分 方程 公式 ， 以 及 它们 的 形式 解 . 注意 迄今 为 止 ， 无 论 是 起 始 
时 间 t9 还 是 初始 条 件 jio 和 j20 都 不 是 数值 形式 . 
为 了 寻找 在 某 一 时 刻 二 状态 变量 和 (2 人 的 的 根 . 必须 提供 一 个 误差 范围 如 e = 1.0e -- 6. 由 于 
三 种 情况 都 要 用 到 的 时 间 间 陋 的 长 度 都 以 某 种 方式 依赖 于 外 部 驱动 画 数 wa( 切 和 zz(b 的 波长 1/v， 
更 合适 的 做 法 是 引入 “相对 ”误差 范围 e= 1.0e - 6/v. 
最 后 一 个 文件 是 proecs .map, 它 包 含 了 “ 主 程序 ” 以 及 数值 计算 中 的 某 些 过 程 积 函数 . 


Procs.map 中 定义 的 过 程 


# 一 一 一 一 一 一 一 ULtIJLiLtiLes 


diff/piecewise' := proc () 
description “cheap diff on Piecewise expression. '， 
Maple V4:s library function considersN\ 
Qiscontinuities ，but is _muach_ slower .':; 
Jocal gE，S，Dn，K， 七 ; 
g := [args[1..Dnargs-1]] ; 
蕊 


args [nargs]j;i D := nops(g) ; 
seq(op([gE[2*+k-li] ,diff(g[2*+*k] ,t)]) ,k=1..floor(n/2) ) ; 
if (type(Gn,odd)) then s := s,dqiff(g[n],t); fi; 

RETURN (Piecewise(s) ) ; 


endQ : 


S 


Signum_rightof := proc (f，t::Dnumeric) 
descTiption “return Signum of f(t+) ; 
gLobal eps ; 

Jocal 工 ，S，X; 

if (type (〈t，rational)) then 
S := Simplify (series (Et(Xx) ，Xx=t) ) ; 
rr := op(1:,s) ; 
RETURN 〈signum(r) ) ; 

王 斌 ; 


RETURN 〈signum(Cevalf (f(t+eps)))) ; 
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enda : 


fsolve_smallest := proc (ff，Tr::Tange) 
description “return Smallest Zero in frj. NULL if none.; 
g&Lobal eps ; 


LocalL tfrom，tto，s，Sprev， 七 ; 


tfrom := op(1,r); tto := op(2,T); 
SPpIev := NULL ; 
while (tfrom <= tto) do 
sS := fsolve (ft)， 七 ，t=tfrom. .tto) ; 
if (whattype(s) “> float) then RETURN(CsPrev); fi; 
if ((s“《“ tfrom) or (tto《“ S)) then RETURN(sprev) ; fi; 
tto := S-eps; 
sprev := S; 
oOd ; 
RETURN (spPrev) ; 


end : 


了 get DeXxt interVal 


casef1,0] := 1: case[0,1] := 2: case[l,1] := 3: 
# i[2] = 0: [ij = 0: 


Dext_case := Proc (t0: :numeric，j::array) 
descTription “Teturns case that follows point tO0O. :; 
gLobalL eps，case ; 
RETURN 〈case[signum_rightof(j[1] ,t0) ，signumn_rightof(j[2] ,t0)]) ; 


end : 


next_interval := Proc (t0: :numeric，i0::array，VAR_case) 
description “returns cuIrents for Dnext interval. :， 
(In VAR_case Dext case. :'，; 
Local 七 ，]，S，Ccase ; 
for S from nof_cases by -1 to 1 do 
j := arTay(1..2) ; 
jf[ 匡 unappLy (if[s]j[t]j(t,to,io[i],io[2])，t) ; 
j [2] unapply (i[s] [2](t,to,io[l],io[2])，t) ; 
case := next_case (t0，j) ; 
if (s = case) then VAR_case := S;) RETURN (j); fi; 
cod ; 
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ERROR 〈《“Continuation failed' ) ; 


end : 


crit_smallest := Proc (f，Tr::Iange(numericy)) 
description “smallest Zero of f in jrj (without left border) . ， 
right(r) if (fE == 0) or (f(Gt) <> 0) imnITr ; 
ElLobal eps ; 


Jocal S， 上 ttromn，tto 


tfrom := op(1,r); tto := opP(2,) ; 
if (f = 0) then RETURN (tto) ; fi; 
sS := fsolve_smallest 人 〈(f，tfrom+eps. .tto) ; 
if 《whattype(s) <> float) then RETURN (tto);i fii; 
RETURN (〈(s) ; 
end : 
next_cTrit := Proc (j: :array，LT::Tange(numeric) ， 


case: :integer，VAR_i) 

description “returns next critical Point .， 
TITn VAR_i current ii[] at this Point . ; 
1]ocal 七 ，ugE，udq，cCIrit， 七 crlit，1 工 ; 
ug := Unapply (evalf(R.3*(j[L1](t) + j[2](t)) + 
L.3x(diff(jti](t) ,t)+diff(j[2](t) ,tt)))， 七 ) ; 

ud[Il] := unapply (ul](t) - ug(t)， 七 ) ; 
ud[2] := unapply (ur[2]j(t) - ug(t) ， 七 ) ; 
it (case = 1) then 


crit[l] := crit_smallest (j[1] ，z) ; 
crit[4] := crit_smallest (udqa[2] ， 工 ) ; 
七 crit := min(Ccrit[1] ，czrit[4]) ; 

elif (case = 2) then 
crit[2] := crit_smallest (j [2] ，r) ; 
crit[3] := crit_smallest (ud[1] ，T) ; 
tcrit := min(crit[2] ，czrit[3] ) ; 

elif (case = 3) then 
crit[1] := crit_smallest (j[1] ， 工 ) ; 
crit[2] := crit_smallest 〈j[2] ， 工 ) ; 
crit[3] := crit_smallest (ud[1] ， 工 ) ; 
cTit[4] := crit_smallest (ud[2] ， 工 ) ; 
tcrit := min(crit[1]，crit[2] ，crit[3] ，cTrit[4] ) ; 


6 动 若 
1 BTTay (Tc 27 [JecratDo 了 [2] city 和 





第 二 十 章 双 相 半 波 整流 器 的 瞬时 反应 257 


if (crit[1] = tcrit) then i[1] := 0; fi; 
if (crit[2] = tcrit) then [2] := 0;) fi; 
VAR_iLI := 工 ; 
RETURN 〈tcTrity) ; 
end : 
一 malin Program 
rectify_solve := Proc (i0: :array(numeric)j，I::range(numericy) ) 


description “returns ii[t..2] as Piecewise functions ' ; 
glLobal Dofi_states ，eps ; 
Jocal tfrom，tto，tcur，ScuUr，Ires，1，j，K，ires，D，nhof，dQ，s,， 七 ; 


tfrom := op(1,z); tto := op(2,z); 


res := array (1. .nof_states) ; 
for k from 1 to nof_states do res[k] := NULL; od; 
tcuUT := 七 from; 寺 := IO0; 


while 《tcur < tto) do 
UnassIgzn (2SsScury?) ; 
j := Dext_interVval (tcur，1，ScuT) ; 


for X from 1 to Dnof_states do 


res [k] := res[k]，[tcur，j[k]，scur] ; 
od; 
unassign (? 工 ) ; 
tcur := Dext_cri 让 〈j，tcur. .tto，Scur，i) ; 
od ; 
ires := array (1..nof_states) ; 


for k from 1 to nof_states do 
nof := nops([resfkjjy); 
Q res [kj] , [tto+epsj] ; 
s.:= seq(op([d[in][Lli] <=t 上 andt“<“ dr[n+ti]j[li],dakn][2j(t)]) ,n=1l1..nof); 
iresfk]j := unapply(Piecewise(s) ,七 ) ; 
od ; 
RETURN (ires) ; 


endaQ : 


procs .map 中 的 “ 主 程序 ”是 控制 大 多 数 执行 过 程 的 程序 . 该 程序 使 用 了 状态 变量 的 初始 值 积 在 每 个 
间 隅 开始 时 独立 变量 的 值 , 在 每 个 间隔 中 三 种 情况 中 仅 有 一 种 成 立 . 通过 连续 地 调用 next_interval 
过 程 ， 就 可 以 确定 首先 采用 三 种 情况 中 的 哪 一 种 . 在 这 个 过 程 中 ， next-case 也 要 被 用 到 ， 它 本 身 
又 要 调用 signightof. 当然 在 文件 halfwave-map 中 已 经 找到 的 解析 解 自 始 至 终 都 要 用 到 正如 
在 signTightof 中 看 到 的 那样 ， 以 解析 的 形式 确定 在 时 刻 夺 = tetart 使 用 哪 一 种 情况 ， 这 要 通过 
计算 状态 变量 iiad) 高 阶 导 数 的 值 ， 直到 求 出 导数 不 为 零 的 阶 为 止 ， 否则， 就 要 找到 某 个 位 置 


二 
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t+ 的 状态 ， 守 是 某 次 情况 改变 的 最 后 位 置 .一旦 所 采用 的 情况 确定 了 ， 处 理 结果 的 信息 将 存储 
在 “ 主 程序 ”的 列表 中 ， 此 后 ， 再 考虑 下 一 个 间隔 ， 直 到 独立 变量 的 全 部 范围 都 包括 在 内 . 
下 面 几 个 图 画 出 了 在 整个 过 程 中 电流 间 ,?2( 区 ,整流 电流 ?o( 艾 和 整流 电压 ve(b) 的 图 形 . 
2 (Tt) z2{1) 
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在 过 去 的 几 年 里 ， 具 有 内 部 关 断 能 力 的 大 功率 半导体 器 件 已 经 开始 使 用 . 这 种 器 件 叫 门 开关 
(GTO) 闸 流 二 极 管 ， 它 有 几 个 硅 层 ， 每 层 发 挥 一 定 的 作用 ; 它们 能 够 在 毫秒 的 时 间 内 在 数 千 伏 的 
电压 下 关 断 1000 安培 的 电流 . 常见 的 电阻 ， 电 抗 ， 电 容 和 闸 流 二 极 管 可 以 一 起 组 合 在 输电 设备 的 
电路 中 ， 闸 流 二 极 管 可 简单 地 看 成 一 个 开关 . 这 种 技术 仍然 是 一 个 很 活 妈 的 研究 领域 ， 它 有 许多 
很 重要 的 应 用 ， 比 如 交 直 流转 换 〈 双 向 ), 机 车 和 电车 的 速度 控制 ， 以 及 供电 网 络 和 电站 的 控制 . 

亲 流 二 极 管 开关 的 每 一 个 确定 状态 都 遵循 Kirchhof 定律 ， 这 种 电路 的 动力 学 行为 可 用 具有 和 
系数 的 线性 常 微分 方程 组 来 描述 ， 这 里 假定 电路 元 件 都 是 线性 的 .如果 开关 改变 其 状态 则 电路 也 
改变 其 结构 ， 但 是 开关 之 前 电路 中 电流 的 最 终 状 态 决 定 了 开关 之 后 的 初始 条 件 . 

因而 ， 如 果 开 关 的 时 间 可 以 忽略 ， 输 电 设备 中 电路 的 数学 模型 ， 就 是 一 组 具有 分 段 常 系数 的 
线性 微分 方程 . 我 们 假定 电路 的 动力 学 问题 可 以 被 ”个 时 间 + 的 连续 函数 来 描述 ， 它 由 相关 变量 
给 成 的 向 量 x(t) < 及” 来 描述 . 用 矩阵 符号 来 表示 ， 该 模型 可 以 写 为 


文 一 4 人 (tx 十 P 人 tb) (21.1) 


在 此 , 网 点 代表 对 时 间 求 导 ，4(b 是 阶 跃 函数 , 也 就 是 一 个 给 定 分 段 常 数 的 mx7m 和 矩阵, 而 p(teR" 
是 一 个 给 定 的 驱动 函数 . 在 交流 电 (AC) 的 情况 下 ， p( 和 4() 常常 是 周期 函数 .不 失 一 般 性 ， 
这 周期 可 以 规 一 化 为 2r, 从 ptb) 的 Fourier 分 解 来 看 ， 我 们 将 把 一 次 谐 波 作为 模型 . 通常 ， 解 x(b) 
是 用 初始 条 件 x(0) = xo 来 表述 的 ， 但 是 其 它 的 表述 如 x(t) 的 周期 性 会 在 21.3 中 考虑 . 


图 21.1 简化 的 SVC 电路 





尺 M YAM TRt REc Zc 
(~ 六 * 一 让 一 一 


闻 流 一 极 管 电 穷 


aa =- -一 一 一 一 -~ 逢 ， -一 一 -~ 一 一 一 一 一 ~ 一 一 一 一 一 一 am 一 一 一 一 一 二 一 一 一 lj 


电站 主要 部 分 的 阻抗 SVC 





260 Jaldvocgei 


SVC 电路 的 摘 述 
变量 描述 
DVRlti,UsltDrtt 电站 产生 的 交流 电压 
及 AM 了 M 主要 部 分 的 电阻 和 电感 
有 Rc, Lec;C SVC 的 电阻 ， 电 感 和 电容 
TR(t Ts(tb TO 主要 部 分 的 注入 电流 
COb) 加 在 SVC 直流 电容 两 端的 电压 


具有 一 个 常数 矩阵 4 的 线性 微分 方程 组 的 初 值 问 题 是 一 个 初等 微 积 分 的 课题 ( 见 四 ) 可 以 用 
4 的 特征 值 和 特征 向 量 来 处 理 ， 或 者 利用 矩阵 指数 e4# 来 处 理 . 即使 矩阵 4 人 (的 是 分 段 常数 ， 全 
值 问 题 的 显示 解 也 可 直接 求 出 ， 尽 管 在 4( 纪 有 许多 不 连续 点 时 ， 求 解 可 能 相当 繁琐 . 

可 以 看 到 ， MATLAB 的 特点 使 我 们 能 够 很 好 地 构造 这 个 初 值 问 题 的 解 x( 力 . 周期 解 也 很 容易 
计算 和 作 图 . 在 本 章 使 用 电力 网 络 控制 领域 的 一 种 称 之 为 SVC (Static Var Compensator) 的 特殊 设 
备 ， 来 说 明 MATLAB 在 输电 线路 中 的 应 用 . 这 里 Var 代表 Volt-Ampere reactive. 

在 输电 网 络 中 使 用 SVC 是 为 了 补偿 电压 的 王 降 ， 它 是 由 于 电力 线路 的 损失 和 用 户 负载 的 变化 
所 造成 .在 通常 的 三 相交 流 电 系 统 中 ， 每 个 周期 需要 六 个 开关 动作 ， 以 便 在 每 个 周期 相应 的 时 间 
间隔 中 ， 使 电力 反 冲 脉冲 从 一 个 相 转 到 另 一 个 相 . 

图 21.1 表示 了 一 个 简化 的 但 包括 了 主要 部 分 的 SVC 电路 ， 闸 流 二 极 管 由 开关 来 代表 . 为 了 简 
化 ， 没 有 考虑 电网 的 负载 . 每 相 电 路 在 任何 时 刻 只 可 以 关闭 一 个 开关 . 对 图 21.1 的 电路 选择 = 3 
个 独立 变量 即 可 ， 分 别 是 


六 的 一 5 的， 的 = 及 的 ，zag = - 启 0s 全 一 兢 作 ) (21.2) 


电路 的 动力 学 问题 由 方程 (21.1) 描述 ， 其 中 


1 
pf(t) 一 (0， cos tsin t， 万 = 了 Mr+TIc， 斑 =Rvd+Rc (21.3) 
和 
0 声 cos 去 Slimn 
4(0 = Ble(d)，B(p) = | -总 cosp 一 0 | (21.4) 
一 入 Sin Y% 0 一 艺 


开关 角 ef 人) 是 一 个 给 定 的 分 段 常 量 的 函数 ， 它 控制 闸 流 二 极 管 的 动作 . 在 SVC 的 六 个 脉 训 中 它 被 
选择 为 

| 21.5 

2 划一 5roun 长 有 中) (21.5) 


其 中 ， 移 动量 r 是 SVC 的 一 个 参数 ， 且 |r| < 瑟 . 为 使 交流 电路 的 周期 (常常 是 0.02 秒 ) 成 为 2F， 
使 用 了 规 一 化 单位 来 表示 参量 C, 卫 和 届 , 它们 的 典型 值 分别 是 


C 一 0.2， 卫 =0.15， 尺 = 0.005. (21.6) 


实际 上 ，C, 工 和 尽 的 量 级 分 别 是 150nF,2Hy 和 209. 进一步 的 技术 细节 请 参见 文献 [2,3]. 
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21.2 具有 分 段 常 系数 的 线性 微分 方程 组 
我 们 考虑 未 知 函 数 x( 切 ER" 的 微分 方程 组 (21.1) 
X 一 4(bx 十 POb， 
为 了 简单 ， 假 定 给 定 的 2r 周期 的 驱动 函数 p( 如 只 有 一 次 谐 波 
P = be + be 开 ，b e Cn. (21.7) 


使 用 复 函 数 符 号 可 大 大 简化 方程 ，MATLAB 也 完全 支持 复 函 数 . 假定 分 段 常数 实 和 矩阵 4(t) 也 具有 
2 的 周期 因而 ，《〈 可 能 的 )mm 二 1 个 4(b) 的 不 连续 值 女 (跳跃 点 ) 可 如 下 引入 


0 一 加 < 有 < 妇 < < 让 < 让 二 27， 
而 和 矩阵 的 离散 值 标 记 为 

4 人 (tb 三 4k 其 中 如 和 1< 大 HR=0,...7mn 一 1. (21.8) 
给 定 初始 条 件 为 x(0) = xo, 方程 (21.1) 具有 唯一 解 x(; 它 在 跳跃 点 的 值 记 为 


Xk :一 X(tk)， 大 一 0,.. .rm 


首先 ， 我 们 在 天 个 小 间隔 e [不 ,如 +i] 中 构造 (21.1) 的 隐 性 解 x(, 它 满足 的 征 分 方程 和 初始 条 件 
是 


的 一 4 人 扩 二 Pb， 芋 E 区 ,大 +] | 天 三 人 丰 交 = (21.9) 
X( 大 ) 一 XK 
通常 作 如 下 分 解 
x(t) 一 y(t) 十 2 人 tt)， (21.10) 
其 中 ，z(b) 为 适当 选择 的 特 解 ， 而 y(b) 为 同 构 问 题 的 解 ， 满 足 
y( 引 王 4ky(t，y( 大 ) = xk 一 2( 大 ). (21.11) 
使 用 熟悉 的 矩阵 指数 可 得 到 
y 人 (日 = etck， (21.12) 


ck 由 (21.11) 的 第 二 个 方程 决定 . 

矩阵 指数 的 计算 是 一 个 具有 很 长 历史 的 重要 问题 ， 综 述 文章 [4 “计算 矩阵 指数 的 19 种 不 确定 
万 法 "清楚 地 表明 了 这 一 点 . 在 MATLAB 的 expm 命令 中 ， 应 用 了 最 小 不 确定 度 方 法 一 PadE 近似 
法 . 几乎 在 所 有 的 情况 下 ， 它 都 能 可 靠 、 准 确 并 快速 地 工作 . 不 过 对 mxzm 矩阵 ， 它 是 一 种 耗 时 费 
力 的 运算 ， 需 要 高 达 30n3 次 的 运算 . 

如 果 和 矩阵 妃 是 对 角 化 的 ， e-” 可 以 更 容易 计算 . 利用 特征 值 因子 分 解 妃 = TDT-1LD = 
diag( 和 Ai,...，,An) 

e 一 Te2T-1!，eD = diag(e^，...,exn)， (21.13) 


其 中 司 是 殖 的 第 了 个 特征 值 . 
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在 (21.4) 定义 的 扼 阵 4 人 的 = B(e 的 ) 的 情况 下 ， 得 出 的 特征 值 与 p 无 关 ， 可 以 明确 地 写 为 


和 1 一 一 》) A 人 2 3 一 一 ?"/2 土 Icv (21.14) 


0 
7 一 一 玉 / 卫 ，w = 7 亡 一 本 5 
因而 ， 对 任意 选择 的 开关 时 间 姑 来 说 ， Al, Xa:Xs 也 是 所 有 符 阵 4x 的 特征 值 . 从 具有 正 交 和 矩阵 


1 0 0 
oO)=|0 cos(p) -sin(p) 
0 sin (Pp) cos (;p) 


这 里 


的 相似 关系 
Bep) = S(p)B(0)S(p)-: 


可 以 看 出 这 一 点 . 
因而 可 得 到 
etw) = S(p)eB(o)S(P)-1， 


其 优点 是 esto) 是 一 个 简明 的 表达 ， 因 为 召 (0) 具有 块 对 角 结 构 为 : 


cos (wj 了 7 二 sin (w)/wz5o 0 


忆 (0) ar/2 
所 ee 0 er/2 


其 中 了 是 2x2 单 位 矩阵 ，Bo 是 瑟 (0) 的 左上 部 2x2 块 矩阵 ，r> 和 w 如 上 定义 . 请 读者 用 MAPLE 
自行 证 明 上 述 关 系 . 使 用 et%) 可 能 有 30 个 基本 操作 和 6 个 函数 调用 (例如 exp 或 sin). 

为 了 在 大 个 时 间 段 内 完成 解 的 构造 ， 必 须 选 择 (21.9) 的 特 解 zx( 切 . 最 简单 的 选择 是 与 p(t) 同 
频率 的 谐振 运动 ， 即 


z(t) 一 一 uket 一 人 Ke 一 让 (21.15) 
其 中 ， 确 定 复 癌 量 uk <E C” 时 必须 满足 (21.9). 将 (21.15) 代入 (21.9) 式 ， 得 到 条 件 
(L4k 一 i7)uk 一 Pb， (21.16) 


它 是 在 C 中 关于 uk 的 一 组 线性 方程 ， 其 中 了 工 是 半 xm 的 单位 矩阵 . 因而 形 如 (21.15) 的 解 存在 的 
必要 和 充分 条 件 是 det(4kx -这 ) 夭 0, 即 士 i 必须 不 是 4x 的 特征 值 . 从 (21.14) 得 出 ， 只 要 


2 五 
好 x0 或 5 广 一 二 天 工 ， (21.17) 
(对 (21.6) 给 出 的 特殊 数据 成 立 , ) 它 就 能 被 满足 . 共振 情况 (条件 (21.17) 被 破坏 ) 可 通过 在 (21.15) 


中 增加 如 vkte * 的 项 来 解决 ， 但 这 种 情况 以 后 不 再 提 及 . 
最 后 ， 结 合 (21.10),(21.12) 和 (21.15), 得 到 的 显示 解 


x(t) 一 e4xtck 一 2Re(ukeit)，tE [大 不 +1] (21.18) 


其 中 
uk 一 (4 一 i 门 -b (21.19) 
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和 
ck 一 e retk(xk 十 2Re(uketx))， (21.20) 


是 上 三 大 时 从 (21.18) 中 得 到 . 把 上 = 如 +1 代入 (21.18) 得 到 下 一 跳跃 点 的 x() 值 
Xk Ti 一 e4ktk+lck 一 2Re(ukeite+l). (21.21) 


为 了 在 多 个 点 计算 x 提 , 最 好 按照 (21.19),(21.20) 和 (21.21) 在 一 个 循环 中 对 所 有 上 =0,...,m 一 1 
预先 计算 并 存储 uk, ck 和 xk+1. 然后 由 (21.18) 得 到 x(b, 它 至 多 涉及 一 个 矩阵 指数 . 


21.3 周期 解 


在 如 SVC 一 类 的 技术 应 用 中 ， 人 们 感 兴趣 的 是 相应 微分 方程 的 周期 解 . 然而 ， 只 有 当 周 期 解 
是 吸引 的 时 ， 它 才 具 有 实际 重要 性 ， 它 们 在 吸引 域 中 经 过 长 时 间 以 后 从 任意 初始 状态 自然 产生 . 

在 如 (21.1) 的 线性 问题 中 ， 和 登 加 原理 是 成 立 的 . 因而 周期 解 的 稳定 性 是 由 Pp 人 =0 或 b=0 
定义 的 相应 齐 次 问题 决定 的 (见方 程 21.7). 从 方程 (21.19), (21.20),(21.21) 的 b=0 并 将 xk 用 yx 
代替 ， 由 于 和 矩阵 4xtk+l 和 4ktk 可 交换 ， 我 们 得 到 


0 (21.22) 


这 里 ， yk 表示 齐 次 方程 在 跳跃 点 如 (RE = 0,.…，,7m) 的 一 个 解 的 值 . 因此 在 经 过 整个 周期 tm = 2r 
后 ym 的 值 由 线性 图 


ym 三 Myo， (21.23) 

其 中 ， 
和 二 | 人 (21.24) 

天 一 个 


( 屁 积 是 从 右 向 左 进行 的 ) 是 所 谓 的 单 值 矩阵 . 如 果 mi < 工 对 所 有 的 M 的 特征 值 凡 成 立 ， 那 么 
(21.1) 的 周期 解 全 是 吸引 的 . 

由 甜 阵 〈21.4) 和 开关 函数 (21.5) 给 出 的 6 脉冲 SVC 的 特征 值 屿 是 与 位 移 7 无 关 的 . 在 例 
(21.6) 中 得 到 的 值 是 


1 0.84311362558494 (21.25) 
has 一 一 0.77497080502505 士 0.42379742896324i (21.26) 


因此 如 果 周 期 解 存 在 ， 它 是 全 局 吸引 的 . 
为 了 构造 x(t) =xP(b) 那样 的 解 ， 初 始 值 xo E 忌 "” 必须 求 出 ， 使 得 在 (21.21) 的 符号 中 有 


xm 一 xo 或 了 (xo) := xm 一 xo = 0. (21.27) 


由 于 问题 的 线性 特点 ， (21.27) 定义 的 向 量 值 函数 f 本 身 也 是 线性 的 . 因此 能 够 计算 出 为 了 定义 线 
性 方程 组 (21.27) 所 需 的 了 的 柬 + 工 个 值 . 这 样 做 是 必要 的 ， 因 为 节 的 定义 没有 直接 利用 在 21.2 节 
末尾 介绍 的 很 复杂 的 算法 . 
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n 二 1 个 点 的 值 常 常 被 方便 地 选 为 原点 和 个 单位 点 ，eij = (0,.…,0,10,...,0)T, 这 里 非 零 分 
量 的 位 置 为 7 (7 = 1.…,m). 如 果 采 用 符号 


fo :一 f(0), 五 :一 flei)，(07 =1 .7) (21.28) 


线性 函数 f(x) 可 显 式 表达 为 
f(z) 一 名 十 >》 (一句 )zj (21.29] 


7 一 工 
其 中 x= (zi….，,zn) .初始 值 xo 满足 f(xo) = 0 是 从 线性 系统 


得 到 的 ， 其 中 矩阵 五 为 
到 一 [fo 一 纪 ，. 。， , fo 二 人 ]. (21.31) 


如 果 刁 是 正规 的 ， 则 存在 唯一 的 周期 解 ， 在 数值 例子 (21.6) 中 我 们 得 到 ， 对 所 有 的 re [一 王 , 忌 ]， 
cond(z) = 11.74, 因而 在 本 例 中 玉 决 不 是 一 个 奇异 和 矩阵， 


21.4 应 用 MATLAB 


在 本 节 我 们 将 提供 一 个 完整 的 MATLAB 程序 来 计算 下 面 介绍 的 6 脉冲 SVC 的 例子 ， 它 基于 
上 一 段 提 出 的 具有 分 段 常 系数 的 = 3 的 微分 方程 的 显示 解 . 
(a) 在 21.3 节 中 讨论 的 周期 解 xP 被 生成 ， 它 在 4 人 ) 的 mm 十 1 个 跳跃 点 的 值 被 存储 .可 能 的 近 退 
化 可 被 cond( 王 ) 检测 . 
(b) 为 了 讨论 xp 的 稳定 性 ， 计 算 了 与 xP 有 关 的 单 值 矩 阵 M 以 及 它 的 特征 值 . 
(c) xp 的 列表 和 作 图 (密集 输出 ) 
(d) 周期 解 xpP 的 Fourier 分 析 . 
程序 尽 可 能 地 保持 通用 性 ， 尽 管 特 殊 例 子 的 某 些 特点 必然 出 现 . 这 使 读者 能 把 程序 用 到 其 它 任何 
涉及 到 具有 篆 系 数 线性 常 微分 方程 组 的 问题 中 去 .编程 的 主要 目标 是 高 效 和 简单 ， 没 有 输入 和 输 
出 的 浪费 .就 程序 的 简短 而 言 ， 简 明和 高 度 的 可 靠 性 是 达到 了 . 


算法 21.1 函数 matLrix 
function [A] = matrix(Ky) 
办 generateSs 上 the matrix 上 [] ，X=0,...,m-1i 
和 
4 
gLobal Im 工 及 


Phi = Xx*2*pi/(m-1) ; 
A = 人 
0，cos(pPhi)VC，sin(Phi)VC 
-cos(phi)V1.57/L， -~R/L， 0 
-sin(Pphi)/V1.5/L， 0 ， -R/L 
] ; 
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endQ % matIixXx 


程序 的 核心 是 函数 f=solution(x0), 它 在 算法 21.2 中 给 出 . 它 解 出 具有 初始 癌 量 x0o = xo 的 
(21.2) 并 返回 由 (21.27) 定义 的 函数 荆 = fxo) 的 值 .在 实际 调用 中 按照 输出 变量 的 数目 nargout(MATLAB 
的 永久 变量 ), 矩阵 xx,uu,M 也 被 计算 .本 例 中 的 特定 矩阵 4k( 见 方程 (21.4),(21.5)) 是 由 算法 21.2 
中 的 函数 A=matrix(k) 产生 的 .为 方便 起 见 ， 在 表 21.1 中 列 出 了 被 传递 的 全 局 变量 . 


表 21.1 全 局 变量 的 描述 


变量 描述 

mm , 工 维 数 参数 

C，L，R 系统 参数 

b 方程 (21.7),(21.3) 中 的 非 齐 次 b 


tt(1:m+l) 跳跃 点 数组 ， tt(1 十 k) 一 不 ，(R 一 0...7m) 


工法 21.2 solution 函数 


function [ff，xx，unau，Mj = solution(xO) 
AhSOLUTION Solves the SVC Problem over a Period. 
包 f == 0 <=> periodic solution 


ELobal 圈 开 t b 


if (nargout > 1)，uu = 上 ; xx = X0; end; 
if (nargout > 3)，M = eye(Dn);i end; 
X = XO; 
for KEK = 1L: 茵 ， 
责 = matrix(K=-1) ; 
忆 = expm(CA* (tt (K+1L) -tt(C))) ; 
u = (A-i*reye(n) )Nb; 
X = 下 *(Xx+2*TealL(u*yzexP(i*tt(k)))) .， 
- 2*Teal(u*eXxPp(i*tt(k+l1)7)) ; 
if (nargout > 1)，uu = [uu,uj; xx = [xx,X]j; end; 
if (pargout > 3)，M = E*M; end; 
end ; 
f=X 一 XO; 


end 沁 solution 


在 solution 的 输出 方面 ， xx 将 包含 xx 的 值 ， umu 包含 中 间 结 果 uk, M 为 单 值 托 阵 . 这 些 变量 在 
solution 的 第 一 行 被 初始 化 . 在 随后 的 大 循环 中 我 们 首先 通过 调用 画 数 matrix 产生 矩阵 4k-1. 
方程 (21.19),(21.20) 和 (21.21) 如 21.1 节 末 尾 那样 求 值 . 仅 有 的 修改 是 (21.21) 的 cx 被 (21.20) 所 
替代 ， 这 减少 了 一 半 要 计算 的 矩阵 指数 . 因而 ， 至 少 可 以 避免 存储 没有 价值 的 向 量 ck- 

因为 MATLAB 的 循环 指数 必须 大 于 等 于 1, 循环 指标 & 每 次 变动 1， 存储 新 计算 的 癌 量 u = 
uk,Xx 一 Xk+l 是 将 它们 分 别 附 加 在 矩阵 uu,xx 上 去 . 在 同一 个 循环 中 ， 部 分 乘积 M 按照 (21.24) 被 
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更 新 . 最 后 的 语句 定义 了 函数 (21.27) 的 值 . 


21.2 SVC 中 的 电压 和 电流 


参数 ， C = 0.2, 卫 = 0.15, 尺 = 0.005， 由 方程 (21.6) 得 到 . 三 种 情况 的 偏 移 T = 一 尺 , 一 0.375 已 , 尽 分 别 被 
显示 . 左边 的 图 画 出 电压 zl = 1 人 芍 对 时 间 二 的 变化 ， 右 边 的 图 画 出 电流 zz 人 (tj = 7s( 切 ( 实 线 ) 和 zs(t) 三 
(7s 伯 一 条 人 的 )/V3( 虚 线 ). 





在 算法 21.3 中 ， 给 定 的 主 程序 Per.m 通过 调用 函数 solution 执行 了 (a) 到 (d) 的 任务 .在 初 
始 化 某 些 全 局 变量 以 后 ， 移 动量 r 的 输入 是 通过 程序 请 求 来 实现 的 . 用 这 种 方法 ， 电 路 对 r 的 依 
赖 性 的 敏感 程度 可 以 很 容易 地 研究 . 在 后 面 的 语句 中 ， 跳 跃 点 tt(1:m+l) 的 数组 (指数 移动 为 1) 
定义 为 ， 
tt(1) 一 0 
tt(1 十 K) 大 =7+( 人 一 和 了， (=1...,6) 


tt(8) 一 27 
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(参见 (21.5))， 然后 周期 解 xP 与 其 初始 值 x0o = xo 一 起 被 计算 . 程序 严格 苯 守 方程 (21.28) 到 
(21.31), 这 是 十 分 明显 的 . 


算法 21.3 Per 草稿 
global mnDCLRtthb 


= 了 7 了 ;nn= 3; 
=0.2;L=0.15; R= 0.005; 
[0;1;-i]V2/L; 

= 5812; 


之 避 中 
外 


tau = input(:tau = :); 
tt = [0，2*pi/(m-1)*[1/2: (m-3/2)]+tau，2*pi] ; 


f0 = Solution(zeros (ny,1)) ; 
F= [; for x = eye(Cn)， 

F = [F，f0 - solution(x)]; 
end ; 
x0O = FNfO ; 


[ff，xx，uu，M] = solution(x0) ， 


delta = 2*PpIVN; 
k = 0; xtab = D 口 ， 
for j = 0:N-I， 
t = j*delta; 
if (tt(k+1) <= 七) ， 
X = k+it; 
A = ImatriX(K-I) ; 
auXx = expm(A*(t-tt(k))) ... 
(XX(: ,KK)+2*xreal(uaua(:,K)*exp(iytt(Kk)))); 
下 = expm(CA*delta) ; 
ese 
aUX = 三 下 本 aUx ; 
end ; 
xtab = [xtab，aux-2+real(uu(: ,K)*exp(iy#t))] ; 


end; 


figure(1); Plot(xtab(1,:)，); 
figure(2); PlLot(xtab(2:3，,:))?); 


cc = fft(C1/N*xtab); cc(t:32，,:) 
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在 下 一 段 的 程序 里 ， xP 斧 按 步 长 A = 2r/N 列表 : 
xtab(:,j) 三 xpPl 一 ThA)，7=1 .和 N. 


按照 随后 的 快速 Fourier 分 析 的 观点 ， 必须 是 2 的 需 次 . 如 果 六 >> mm, 算法 必须 重新 组 织 以 便 
更 有 效 地 计算 . 给 定 一 个 寺 值 ， 指 数 & 要 使 Ee [大 ,不 + 如 果 上 E [不 ,不 +1) 是 间 隅 中 的 第 一 个 取 
值 操 ，xP(b 必须 按照 (21.18) 计算 .因此 我 们 开始 计算 的 《21.18) 第 一 项 是 


atux :一 e4ktck 一 extt-tk)(xk 十 2Re(ukeite ))， 


其 中 向 量 xk 和 uk 分 别 从 数组 xx 和 uu 中 取 值 . 下 一 步 是 计算 窍 阵 E :=e4x^ 并 将 它 存 储 在 这 一 
点 ， 这 样 可 避免 在 同一 个 间隔 以 后 的 点 中 频繁 地 重复 计算 它 . 此 外 ， 它 也 能 够 按 aux:= E*#xaux 更 
新 aux. 

在 程序 的 最 后 一 段 中 ，xP(b) 的 第 一 分 量 , 即 过 ( 雪 ( 电 容器 C 两 端的 电压 ) 是 相对 于 了 = T+t/A 
画 出 的 ， 如 MATLAB 的 图 1. 第 二 和 第 三 个 分 量 都 是 电流 变量 ， 同 时 画 在 MATLAB 的 图 2 中 . 最 
后 ， 利 用 MATLAB 的 命令 fft 对 xpP 的 三 个 分 量 分 别 作 了 Fourier 分 析 ， 它 需要 列 向 量 作为 它 的 参 
数 . 和 矩阵 cc 供 打 印 xb 的 三 个 分 量 的 前 32 个 复 Fourier 系数 之 用 . 

在 三 种 情况 r = - 尺 ,r = 一 0.375 尺 和 7= 忌 下 的 数据 (21.6) 产生 了 图 21.2. 对 7 的 微小 变化 
的 是 十 分 敏感 的 .理想 的 情况 是 ， 电 流 zz( 划 ,zs( 芭 是 正弦 的 . 这 个 领域 的 一 个 研究 目标 是 : 降低 
在 周期 解 xP 中 的 高 次 谐 波 引 起 的 扰动 . 


21.5 纺 论 


工艺 过 程 的 计算 机 模拟 是 过 程 设计 和 优化 的 有 用 的 研究 工具 ， 上面 这 个 特定 的 电路 模拟 程序 
比 一 般 的 模拟 程序 在 同样 的 问题 上 处 理 速度 快 十 倍 . 它 的 结果 对 数学 模型 的 精确 解 有 很 高 的 近似 
程度 (14 位 小 数 ). 这 使 使 用 者 能 得 到 可 靠 的 直到 高 阶 的 周期 解 的 频谱 ， 反 过 来 它 又 可 以 使 设计 者 
消去 某 些 不 需要 的 谐 波 . 

显然 ， 这 次 仿真 计算 的 成 功 很 大 程度 上 依靠 MATLAB 软件 的 高 性 能 . 然而 要 得 到 最 好 的 结果 
必须 靠 优秀 的 软件 以 及 纯熟 的 数学 分 析 技 巧 . 
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22.1 引言 


这 一 章 的 目的 是 展示 计算 机 代数 在 物理 教学 中 的 应 用 .与 Newton 引力 理论 有 关 的 七 个 例题 
将 用 MAPLE 解决 . 所 有 的 例题 只 应 用 到 著名 的 Newton 引力 定律 


7 712 


站 一 C 





人 2 


或 相应 的 势能 公式 . 


22.2 二 力 的 平衡 


我 们 从 简单 的 问题 开始 : 求 位 于 两 个 质量 分 别 为 ri 和 mmz 的 质点 间 的 平衡 点 ， 两 点 的 距 
离 为 ",( 见 图 22.1). 


图 22.1 问题 的 定义 


mm1 mm mmz 
站 


> RL := GyrmL1l]*xm[x]/yrx”2 = Gkm[x]*xm[t2]j/(Gr - ITx) > 2; 
EGGrnpirmnz C 7mn 7722 








后 于 一 
rz 人 
> Sr := Solve(R1，Fx) ; 
吧 汪 1 (27rmpl 十 2 V 和 17m2)7 工 (2mmi 一 2 vVImT7TR2)7 
人 721 一 7722 2 721 一 7722 


> ITX := factor(Sr[2]): 


> InXx := Simplify(subsGr = 1，mt2] = N7”2xm[1] ，TXx) ,Symbolic) : 
> IDnx := Subs(N = sqrt(n) ，ITnx) ; 
1 


>  PlLot(rnx，n=0..10，labels=[cn，?rx)?]); 


图 22.2 表明 平衡 点 的 坐标 为 rz/mi 的 函数 ， 取 > = 1. 
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图 22.2 莽 一 7 





22.3 三 力 的 平衡 


现在 我 们 可 以 解 三 个 质量 分 别 为 mi, m2z 和 ns 的 质点 的 类 似 问 题 . 它们 的 坐标 标示 在 图 22.3 
中 . 设 一 个 质点 mm 在 (z,y) 处 .将 由 mi 产生 的 引力 瓦 表示 成 力 玉 z 与 玉 y 的 和 ， 如 图 22.3 所 


图 22.3 三 力 平 衡 ， 问 题 描 述 





> ITl := Sqrt((xL - X) “2 + y”2) : 

> Tr2 := sqrt(C(x2 - x) ”2 + y”`21) : 

> T3 := Sqrt(x"2 + (y3 - y) ”2) : 

> FL := Gyxm1l*m/ATr1 ”2: 

> FE2 := G+rm2+m/T2”2: 

> F3 := Gyrm3+xm/Tr3 2: 

> Fix := Fl+(xl - x)/rli: Fly := -Fl*y/rti: 
> FEF2Xx := F2y(x2 - X)VT2: FE2y:= -F2+*y/T2: 
> 了 F3x := -F3*yx/r3: F3y := F3+r(y3 - y)/Tr3: 


如 果 作 用 在 这 一 点 的 合力 为 零 ， 质 量 mm 就 集中 在 这 个 平衡 点 . 
> Rx := F14X + F2X + F3x=0; Ry := Fly + F2y + F3y=D; 


瑟 了 2 
GCTirmm(zl 一 Z) Grmn2rm(z2 一 工 ) Cr 7723 772 2 


让 


ee 十 
(z1 2 一 271Z7 十 z2 十 y2)3/2  (z22 一 2z2z 十 z2 十 92)3/2  (z2 十 832 一 2833 十 2)3/2 
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并 二 
GT1i7mmy Go7p2my 时 Cn372(y3 一 2) 本 
(z1 一 2z1 2 十 Z2 十 22)3/2 (z2 一 2z72z 十 Z2 十 22)3/2 (Z2+8y32 一 2838 十 92)3/2 


我 们 得 到 一 个 关于 z 和 y 的 非 线性 方程 组 ， 通 利 它 没 有 解析 解 . 对 给 定 的 值 rz = -5， Z2 三 3， 
ya 一 8 rni 一 12 mn2 一 9 和 ma=6. 可 用 图 像 法 求 近似 解 . 用 implicitplot( 见 图 22.4) 描 出 
Rez(z,y) =0 和 Ruv(z,y) = 0， 我 们 可 以 确定 解 的 存在 区 间 .， 这 些 区 间 被 fsolve 用 于 数值 计算 ， 方 
程 包含 了 变量 G 和 mm 为 公共 因子 ， 令 G=1 和 和 到 =1 可 把 它们 约 去 . 


> System := Subs(G = 1,，m = 1，mli = 12，xl = -5，m2 = 9， 
> x2 = 3 m3=6，y3= 8，{Rc，Ry}); 
23stemm :一 { 
8 一 
(25 十 10 关 十 zZ2 十 82)372 (9 一 6z 十 z2 十 92)3/2 (z2 十 64 一 167 十 232)312 
二 人 
候 2 雪人 


12 一 一 一 一 一 一 一 一 一 一 一 9 一 一 一 一 一 一 一 一 一 一 6 一 ~ 
(25 十 10z 十 Z2 十 32)372 外 (9 一 6z 十 z2 十 2V2)3/2 (z“ 十 64 一 163 十 2)3/2 


wjith(Piots) : 

implicitPplot(System，Xx = -4..2， y = 0..6，numpoints = 800， 
Labels = [xc ,4y']，color = blackxk) ; 

Digits:=20: 

NS1 := fsolve(System，{x，y}，{x = -1..0，y = 0..1}7)7; 

NS2 := fsolve(System，{x，y}， {x = -1..0，y = 4..5j}); 


51 := {z = 一 72487727980894034937, y = .30815197495485312203} 
SS2 一 .25295953560065612935, y 一 4.3264261442756129585} 


VVVYMVVY 


> evalf(subs(NS1，System) ) ; evalf(subs(NS2 ，System) ) ; 


{.4210 -= 0, -.110-19 = 0} 
{=-.210 -=0, .110-20 = 0} 


图 22.4 显示 了 两 个 相交 点 ， 故 我 们 有 两 个 解 ， 两 个 平衡 点 . 为 数值 计算 我 们 取 20 位 的 精度 ， 
并 用 回 代 的 方式 验证 解 . 


22.4 三 力 的 平衡 ， 由 势能 公式 计算 


与 上 一 节 同 样 问题 可 以 通过 找 势能 的 临界 点 求解 ， 因此 我 们 要 求 满足 grad Z(z,y) = 0 的 坐标 
Z 和 2 


> Digits:=10: 

> U := - Grmi/rl - Gxm2/r2 - Grm3/r3: 
> with(Linalg) : 

> EgE := grad(U,[x,y]); 
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图 22.4 Rz 和 Ry 的 隐 式 图 








| 人 Gm3z 
9 二 | 2717 十 屯 十 2)a12 2 (z22 一 2722 十 富 二 好) 人 (zz 十 932 一 2838 十 轨 )3/2 
CrnIly Crn2y 1 Gm3 (--273 十 22) 


em | 一 一 一 > 十 0 DO 213712 
(zi 一 22z1 十 Z2 十 ?2)3/2  (z2” _27z2z 十 z2 十 y2)3/2 2 (z2 十 y32 一 2833 十 82)37? 


妆 然 这 个 解 应 该 与 前 面 得 到 的 一 样 ， 此 时 ， 所 得 到 方程 组 甚至 与 22.3 节 的 一 致 ， 现 在 我 们 将 等 岂 
一 条 等 势能 曲线 和 一 个 3 维 的 势能 图 . 
、 Un := subs(G = 1,m= 1，ml= 12，xl = -5， 
> nm2=-9,x2=3,m3a=6,，y3=8，U)i 
12 9 6 


J 刀 . 二 __ 一 一 一 一 一 一 一 天 一 一 一 
V25 十 10z 十 Z2 十 2 V9 一 6z 十 Z2 十 2 /xz2 十 64 一 167 十 2 


> gn := grad(Un，[x， 姻 ); 


1 10 十 2x 本 一 6 十 27 16 Z 
人 | (25+10z+z2 十 色 )3/ 2 (9 一 6z 十 z2 十 9y2)3/3 (z2 十 64 一 16y 十 92)3/2 
4 y 一 16 十 27 
ET 
(25 十 10z 十 Z2 十 82)37 (9 一 6z 十 z2 十 2)372 四 2 


> implicitplot ({fseq(Un = -i7/6， = 24. .50)1，x=-6..3，y=-1..9， 
> scaling = constIrained， labels = [xx ，'y']，color = bl1acK， 
> numpoints = 800) ; 

> plLot3d4Un，x = -6..3,y= -1..9，View = 二 

、 orientation = [-100，75] ，style = hidden，color = black， 

> numpoints = 40”`2，axes = boxed，labels = [xx ，'y ， UJ?]); 


我 们 现在 重新 计算 能 量 的 平衡 点 ， 并 用 Hessian 确定 我 们 所 找到 的 临界 点 的 撩 至 . 
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图 22.5 等 势能 曲线 图 22.6 3 维 的 势能 图 . 


1 / 


和 
ss 





-1..0，y= 0..1}); 
-1..0，y= 4..51); 


> NS1 := fsolve(tgn[i] ， 色 [2]}，{x，y}，{x 
fsolve({fgn[1] ， 色 [2]}，{K，y}， 人 
NS51 := 1 = .3081519750, z 一 一 .7248772798} 
NS2 := {z = 一 .2529595356, y = 4.326426144} 


V 
启 
中 
h2 
1 


> subs(NS1，hessian(Un，[x， 人 中 )); 
> ， Subs (NS2，hessian(Un，[x，y])); 


一 .6309784820 .006060066605 


.006060066605 .2932060451 


.08480382943 ”一 .01057859943 


一 .01057859943 ”一 .3070140559 


Hessian 和 窍 阵 对 角 线 上 元 素 的 相反 符号 表明 矩阵 是 不 定 的 ， 两 个 平衡 点 是 鞍点 . 当然 这 可 以 从 图 
22.5 和 图 22.6 得 到 . 通常 由 势能 导出 方程 组 的 推导 是 简单 的 ， 且 比 用 力 分 解 的 方法 来 得 快 . 


22.5 粗 线 段 的 引力 


22.5.1 ”势能 和 强度 
我 们 考虑 求 一 条 质量 为 mm, 长 度 为 1 的 线段 的 引力 场 的 引力 势能 和 强度 的 问题 . 


TesgStaz 志 ; 

with(Plots): with(LIinalg) : 

rr := Sqrt(CCxi -~- X) ”2 +y”2 +Z”2) : 
Sigma := m/L: # linear mass density 
U := Inht(Gysigma/r，xi = -LV/2..L/V2) ; 


YYVMVYVYYV 


17/2 工 Cr 
/ 一 一 -一 < 
-1/27 了 VE6 一 246zZ 十 Z2 十 V2 十 Zz2 


274 9.Barto7i 


图 22.7 势能 的 计算 


dU(x,y,1,5,d5,) 





> TU := Dormal(value(U) ) ; 


Z := 一 Gmm( 一 in( 卫 一 2z 十 VZ2 二 472 十 482 一 4 了 zz 十 422] 
十 jn( 一 忆 一 2z 十 VZ2 二 4z2 十 43z12 十 4 隐 z 十 4z2)) / 乙 


在 与 zy 平面 平行 的 平面 x = 1/5 上 我 们 绘 出 势能 ， 等 势 曲线 及 强度 向 量 场 . 


> Us := Subs(G=1,m=1,L=1，z=1/5，U) ; 


/2 /2 
Vs := ln(1 一 2z 十 元 十 472 十 482 一 4z) 一 ln(-1 一 2z 十 2 十 4z2 十 432 十 和) 


scaling = constIained，arrows = SLIM，Dnumpoints = 40>2) : 
dispPlay({P1l,P2},1abels = [xc ,cy']); 


> plot3d(Us，x = -2..2，Yy=-2. .2，axes = boxed，style = hidden， 
> color = black，orientation = [-80，-130] ， 

> numpoints = 35`2，1labelsg = [xi ，'cy，2U?]); 

> pl := implicitplot({fseq(Us = i/10，i = 5..30)}，x = -1..1， 

> y = -1..1，color = black，scaling = constrained) : 

> pP2 := gradpPlot(Us，Xx = -1..1，y = -1..1，color = black， 

> 

> 


22.9 可 作为 一 个 很 好 的 例子 说 明 向 量 场 和 等 势 曲线 总 是 相互 垂直 的 .我 们 通过 计算 limy ,rr 


和 limr-*o9g, 来 验证 结论 的 正确 性 . 
图 22.9 等 势 曲线 和 向 量 场 


图 22.8 势能 ，z 一 去 


? 烛 


本 天 
了 
让 椰 
1 W 硬 关 
机 
中 mm 


0 聘 
NS 





> Uinf := Limit(U，L=0) ; 
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[全 Jim 一 Gm(-mn( 了 一 2 十 VEIL2 十 472 十 4372 一 4 了 Z 十 422) 
一 


十 in(- 互 一 2z 十 VI2 十 4z2 十 432 十 4 大 2 十 42z2)) / 


> Uinft := value(Uinf) ; 


C 
态 这 这 一 一 
/ >z2 十 w2 十 212 
>  ginf := grad(Uinf，[x，y，z]); 
. Cr 7 C7Ima71 CT 7 2Z 
0 :一 | 一 一 一 一 一 一 一 一 一， 一 一 一 一 一 一 一 一 
(22 十 22 十 92)3/2， (22 十 22 十 2)3/2 (22 十 z2 十 42)3/2 


> abs(Cginf) = simplify(norm(Cginf ，2)，Ssymbolic) ; 
Cr 7m 


对 长 距离 ，r >> 工 , 线段 看 起 来 象 一 个 点 ， 引 力 场 近似 球 对 称 . 对 工 一 0, 忆 和 9 的 极限 计算 归 绪 
为 关于 一 个 点 的 经 典 Newton 定律 . 至 此 我 们 的 结论 是 一 致 的 . 


22.5.2 质点 的 轨迹 


我 们 将 考察 一 个 在 粗 线段 的 引力 场 移动 的 质点 . 与 此 同时 ， 我 们 还 将 发 现 Kepler 第 二 定律 一 
速度 场 的 等 势 面 不 适用 于 这 种 情况 . 
我 们 用 Newton 运动 方程 求 数 值 解 : 


Us := Subs(G = 1,m= 1，L= 1，UD): 
D2r := [diff(x(t)，t 上 ，t)，diff(y(t)， 七 t)，diff(z(t)， 七 ,七 )] : 
g := Subs(x = Xx(t)，y = y(t)，Z = 2Z(t)，grad(Us，[x，y，2])) : 
IniC:= x(0O) = 1，D(Cx)(0) = 0，y(0) = 0，D(Cy) (0) = 工 ， 
zZ(O0) = 3/4，D(z)(0) = 0: 
Ns := dsolve({fseq(D2r[ij] = g[i]，i = 1..3)，IniC}， 
{x(t) ，y(t)，z(t)}，numeric) ; 


Ns := Proc(rk1f5_z) ... end 


MYVMVMMYMVMYWVY YYV 


不 可 能 预先 知道 MAPLE 以 什么 样 的 次 序 返 回 函 数 . 因此 我 们 需要 用 算法 22.1 来 确定 变量 在 微分 
方程 数值 解 中 的 次 序 ， 算法 22.1 将 函数 的 指数 存 于 ct，C2，5C3, 将 它们 导数 的 指数 存 于 V1，V2， 
V3. 


算法 22.1 dsnumsort 过 程 
dGsnumsort := proc(numpr::1ist，Coor::1ist) 
Jocal 工 ，j，D; 
ELobal CL1，C2，C3，VL，V2，V3; 
Dn := nops(Coor) : 
Print(' order of the variables: “); 
for 二 from 2 to 2*rn + 1 qQo; 
for j from 1 to Dn do 


if [numpr[i]] = 
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select (has ，Pumnpr ， diff(Coor [5j] (t) ,七 ) 7) then 
人 
Print(Ccoor[ 订 ，C.j, ，diff(Coor[j](t) ,七 ) ，V.jy); 
研 ; 
od ; 
od ; 


ena : 


> Tead “dsnumsort .map ' ; 
> dsnumsort(Ns(0) ，[x,y,Zzj]) : 


Order of 妇 e Varzaples : 


口 
2 一 vtt 
二 史 丁 :， 
4 一 xlt 
尼 ) ? 》 Bt X( )， 9 


元 记 。 元 z() 7 


下 面 的 MAPLE 命令 绘 出 了 轨迹 并 验证 了 Kepler 第 二 和 定律 . 


for 1 from 0 to 1000 do ; 
T := 1/25， 
NsT := Ns(T) : 
X[i] := rhs(NsT[ClLi]); Vx[i] := rhs(NsTCV1] ) ; 
YLi] := rhs(NsTtC21); Vy[Lil := rhs(NsT[IV2] ) ; 
Z[Li] := rhs(NsT[C3]); Vz[i] := rhs(NsT[IV3] ) ; 
KepVecf[li]j := convert(crossprod([XLij，Y[i] ,Z[i]] ， 
[Vx[il] ，Vy[il] ，Vz[il1)，1List) ; 
KepAbs [ij := norm(KepVec[i] ，2) ; 
od : 
spacecurve({ [seq(C[X[i] ，Y[il]，Z[il]]，I = 0..1000)] ， 
[L-1/2，0，0]j，Fl/2，0，0]]}，1labels=[ 和 xx，y，' 和 zZ]); 
spPacecurve([sedq(KepVec[Lilj]，i = 0..1000)] ， 
orientation=[0,90]，1labels=[' 和 xx，'y，' 和 2]); 
plot([seq([i/25，KepAbs[i]]，i = 0..1000)] ， 
labels = [?t:，?MofI)]); 


MYVYMYMMVMVYVMMYMMYVMVYVMVYMMYMVYVYVMVYVMMYMV YV 


对 40[ 时 间 单 位 和 时 间 步 长 = 1/25[ 时 间 单 位 ], 结果 在 图 22.10,22.12 和 22.14 中 给 出 图 22.11， 
22.13 和 22.15 展示 了 质点 的 运动 ， 初 始 条 件 为 : 


> IniC := X40O) = 1，DCx)(O) = 0，y(0O) = 0，DCyY) (0O) = 1 工 ， 
> zZ(0) = 1/2，D(z)(0O) = 172: 


为 了 比较 图 形 给 出 的 数据 ， 我 们 必须 计算 轨道 的 径 向 量 和 速度 向 量 . 这 些 向 量 有 助 于 我 们 计算 “ 表 
面 速 度 ， 如 果 我 们 假设 质点 质量 为 1, 它 就 是 动量 . 图 22.10 和 图 22.11 中 的 轨迹 不 再 是 闭 轨迹 . 
Kepjler 第 二 定律 不 成 立 ， 正 如 我 们 从 图 22.12-22.15 看 到 的 那样 . 对 一 个 球 对 称 引 力 场 ， 动 量 是 常 
数 . 此 时 由 于 沿 z 轴 的 旋转 对 称 ， 仅 Mz 是 常数 .当然 在 短 距 离 内 动量 非常 数 ， 因 为 线段 引力 场 
没有 球 对 称 性 ， 见 图 22.9. 
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轨迹 
22.10 


图 22.11 





图 22.13 





图 22.14 图 22.15 
1.25 1.23 
1.22 
1.24 1.21 
1.2 
1.23 
IMofi IM5 佣 
122 1.18 
1.17 
1.21 1.18 
1.15 
1 
0 行 方 ; 30 7 6 15 20 1 妨 PT 


22.6 ”人造 地 球 卫星 


现在 我 们 将 一 个 人 造 卫 星 放 在 绕 地 球 的 轨道 上 .， 人造 卫 星 在 近地点 (最 靠近 地 球 的 点 ) 的 速度 
为 9000 my/s. 近地点 的 高 度 为 622 km. 我 们 求人 造 卫星 的 轨道 并 验证 Kepler 第 二 定律 的 有 效 性 . 
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此 时 卫星 的 轨道 是 平面 的 ， 所 以 我 们 在 平面 上 用 z( 均 和 y 父 坐标 解 这 个 问题 ， 


> ITeStart ; 
> dx := diftf(x(t)， 七 七) = -GyrMz*+Xx(t)V/(CxCt) 2 + y(t) 2) (3/2) : 
> dy := difft(y(t)，， 七 ) = -G+MZ*y(t)ACXCt) 2 + yt) 2) 372) : 
> G:=6.67*10”(-11) : Mz:=6+r10>~24 : 
> Inic := X(0) = 7*10`(6) ，D(Cx) (0)=0，y(0)=0，DCy) (0)=9*#*10>3: 
> Digits := 15: 
> Ns := dsolve({fdxz，dy，Inic}+，{x(t),y(t)}，numeric) : 
> Tead “dsnumsort .map ' ; 
> dsnumsort(Ns(0) ，[x，y] ) ; 

Orader of 圾 e variapbples : 

z 2，， 二 xx 人 ,3 
2， 4， ， 呈 yG)， 5 

> for 大 trom 0 to 400 do; 
> T := 工 k40 ; 
> NsT := Ns(T) : 
> X[i]j] := rhs(NsTIC1]); VxLi] := zxhs(NsTLV1iJ ) ; 
> YL[Li]j := rhs(NsT[C2]); VytLi] := rhs(NsTLV2] ) ; 
> MofI[i] := X[i]*Vy[i]-Y[i]*Vxti]; 
> 0Q: 
> WwWith(plots) : 
> pl := polarplot(6378*10~3，phi = 0. .2*Pi): 
> PpP2 := plot([seq(C[X[Li] ，YLij ，i = 0..327)] ，thickness=2) : 
> display({fp1，Pp2}，1labels = ['x，，2y'] ，scaling = constIained) ; 
> Plot([seq([i*40,MofI[i] - 0.63*+*1l0”11] ，i = 0..400)] ， 
> labels=['t: ,WPp?]); 


图 22.16 轨迹 ， 1 : 103 km 图 22.17 脉冲 的 相对 偏差 






人 rt1012 %] 





MAPLE 的 求解 命令 与 前 面 的 类 似 . Kepler 第 二 和 定律 成 立 ， 正 如 我 们 可 以 由 图 22.17 证 实 的 那 
样 ， 它 显示 了 动量 的 相对 偏差 . 

我 们 可 以 观察 到 ， 轴 道 的 周期 变化 在 第 326 和 327 时 间 段 之 间 结 束 . 我 们 用 二 等 分 法 确定 轨 
道 的 周期 . 
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> tx := eVvalf((t1+t2)7/2) : 

> tt := 326*x*40: tt2 := 327*+40 : 
> yl := rhs(Ns(tl)[C2]) : 

> yY2 := rhs(Ns(t2) [C2] ) : 

> while (tl < tx) andq (tx 《“ t2) do: 
> yX := Ths(Ns(tx) [C2]) : 

> if yx > 0 then 

> y2 := yX: tt2 := 七 X: 

> esSe 

> yl := yX: tl := 七 X: 

> 夺 i; 

> 0d: 

> Tx = evalf(tx) ; 


77 一 13060.2874343718 


> Hx := floor(tx/3600) : 

> Mx := floor(C(tx -~- Hx+yr3600)/60) : 
> Sx := txX - Hx#r3600 - Mx*r60: 

> Hx，MXx，SX; 


3,， 37, 40.2874343718 
卫星 轨道 周期 是 3 小 时 37 分 40.28746 秒 . 
我 们 保存 主要 的 变量 以 便 在 后 面 几 节 中 使 用 . 为 此 最 好 将 加 了 索引 的 变量 列 出 . 


> XS := [seq(X[i]，i = 0..328)]: YS := [seq(CYfLi]，i = 0..328)] : 
> VrS := [seq(CVx[ri]，i = 0..328)]: VyS := [fseq(CVy[i]，i = 0..328)] : 
> save(G，Mz，XS，YS，VxS，VyYS,'orbit .sav') ; 


22.7 ”人造 地 球 了 卫星， 第 二 解 
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问题 ， 运 用 在 均匀 引力 场 中 的 运动 定律 解 例 子 22.6. 假设 在 一 个 时 间 步 长 里 人 阁 卫星 的 位 移 


很 小 ， 使 得 引力 加 速度 可 以 被 假设 为 常数 ， 我们 用 著名 的 Euler 方法 对 运动 方程 组 积分 . 


restart ; 
read('orbit .sav'): Vith(PLots) : 
ax := -Gyr*MZ*+Xx/(x “2 + y”“2) ”~(3/21) : 
ay := -GyMzyky/(x`"2 + y>“2)”~(3/2) : 
:= ')i: j:= 工 +1T: 
for KX from 0O to 3 do: 
X := 7*#+10`6: VX := 0: 
y :=0: Vy := 9000: 
dt := eVvaltf(Ct/2”K) ; 
for 1 from 0 to 328 do : 
X[i] := evalf(x); Y[i] := evalf(Cy) : 
for 也 from 1 to 40*+2 KK do : 
X := evalf(ax*ydt”2/2 + VXydt 二 X) ; 
y eVvalf(ay*dt>”2/2 + VYy*dQt + y) ; 


YYVVVYVMVMYMVMVMYMVMVMVYVVYVV Y 
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Vx := eVvalLf(ax*dt + VX) ; 
Vy := evalf(ay*ydt + Vy) ; 
od : 
If 1 mod 41 = 0 then 
dqXx[k，i]j := Xi]j - XS[j]j; qyY[k，i] := Y[i]j - YS[D]; 
夺 : ; 
coqd : 
Pp[xkj := Plot([seq(CL(XLi] - XS[j])V1000， 
(Y[i]j - YS[j]j)V1L000] ，i = 0..328)] ，color = black) : 


od : 

P1 := display({fseq(P[k]，k = 0..3)}，thickness = 3) : 
SI := [seq(i*r41，i = 0..8)]: 

P2 := plot({fseq([seq([ax[k，i]/1000，daYy[k，i]y/1o00] ， 


k = 0..1)，[0，0]]，i = SI)}，color = black) : 
dispJay({tp1，P2}，scaling = constrained，1labels = [dx:，'dy7]); 
display({P1，Pp2}+，view = [-0.1..0.5，-0.4..0.2] ， 

scaling = ConstIained，1labels = [:dqx?，)，dy?]); 


这 个 算法 包含 了 系统 离散 化 误差 ， 可 以 通过 选择 较 小 的 时 间 步 长 来 减 小 这 个 误差 . 我 们 选择 的 时 
间 步 长 从 dt=1ls 到 1/8 s. 


图 22.18 表达 了 精确 位 置 (如 在 前 一 节 中 计算 的 ) 与 N 个 时 间 步 长 后 近似 位 置 之 差 A. 如 果 我 


们 将 这 些 差 连接 起 来 ， 我 们 就 看 到 螺 线 形 的 曲线 ， 如 果 时 间 步 长 很 小 它 也 很 小 .研究 图 22.18, 我 
们 看 到 ， 当 步 长 被 二 等 分 时 ， 误 差 就 减 小 2 的 因子 . 所 以 A ~ Cadat, 其 中 C 近似 是 常数 .对 较 小 
的 步 长 需要 较 多 的 点 ， 如果 我 们 考察 相应 时 间 内 的 误差 ， 就 会 注意 到 这 些 点 位 于 直线 上 . 而且， 
误 老 不 是 一 致 地 增加 ，( 见 图 22.18); 对 前 205 个 时 间 步 长 ， 误 差 约 为 130 km, 但 在 下 面 的 100 个 
步 长 中 ， 误 差 增 至 大 于 500 km. 


图 22.18 数值 逼近 误差 (km) 


-0.1 





22.8 ”和 扫 失 的 螺 钉 


考虑 一 个 太空 人 在 宇宙 飞船 外 修理 东西 . 在 时 刻 上 = 0 丢失 一 个 螺钉 .假设 这 个 螺钉 相对 飞 
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船 的 速度 是 1 m/s. 我 们 设 飞 船 的 初始 速度 与 前 一 例 相 同 ， 螺 钉 垂 直 于 飞船 轨道 的 相对 速度 为 : 
攻 一 (1,0) my/s. 

我 们 将 在 飞船 的 坐标 系 中 计算 螺钉 的 轨道 和 速度 ， 即 ， 飞 船 总 是 在 坐标 系 的 原点 ， 首 先 我 们 
用 从 例题 22.7 平移 的 坐标 系 ， 保 持 它 与 星座 相对 方向 . 


TesS 二 art ; 

read('corbit .sav') : 

dx := diff(x(t),， 七 ,上 t) = -GykMzykx(t)V(x(t) 2 + y(t) 2)、 (3/2) : 
dy := diff(y(t)，, 七 ,t) = -GyMzyy(t)/CxCt) 2 + y(t) ”2)”(3/2) : 
Inic := x(0) = 7*1l0”"(6)，D(Cx) (0)=1，y(0)=0，D(Cy) (0)=9*r10>3: 
Ns := dsolve({dx，dy，Inic}，{x(Ct) ,yt)} ，numeric) : 

read “dsnumsort .map'; dsnumsort (NSs(0) ，[x，Y]) ; 


YAVVYMVVYVMMYMYV 


Orader of 坊 e variabies : 
D 
2 一 Y( 芭 3 
2， 》 》 Dt 了 ( )， 


D 
二) 4， 》 有 xx 人 (tb)， 5 


for 1 from 0O to 328 do ; 
T := iyr40; NsT := Ns(TI) ; 
X[ij := rhs(NsT[C1]); Vx[Li] := zhs(NsTLV1]) ; 
Y[i]j := rhs(NsT[C2]); Vy[i] := rhs(NsTHEV2] ) ; 
oad : 
1I:= 一 "1i?*: j:= 工 + 1: 


Plot(tseq(C[X[i] - XSLj] ，Y[i] ~- YS[ji]，i = 0..328)] ， 
labels = [dx:，'dy']); 

Plot([seq(C[Vx[i] - VxS[Ij] ，Vyfi] - VyS[Ij]]，i = 0..328)] ， 
labels = [QQ Vx'，'d Vy']); 


VVYVMVVMYMVYVYMVYVMVMV YV 


其 次 我 们 用 一 个 旋转 坐标 系 . 飞船 仍 在 原点 ， 但 系统 以 这 样 的 方式 旋转 使 得 z 轴 的 负 向 总 是 指向 
地 球 球 心 . 太空 人 在 上 上， 在下， 面 对 或 背 对 飞船 : “在 下 ”意味 着 沿 负 z 轴 ，“ 面 对 ”意味 着 沿 7 
轴 . 


GCVx := (Vx[i] - VxS[j]j)*Ccos -~ (Vy[i] -~- VyS[j])*Sin: 
GCVy := (Vx[i] - VxS[j]j)*Sin + (Vy[i] - VyS[j]jy)*Cos : 


> R:= sqrt(CXS[j]”"2 + YS[j] ”2) : 

> Sin := YS[j]/R: Cos:=X[j]V/R: 

> GCX := (X[i] - XS[Ij])*cos - (Y[i] - YSTj])*Sin: 
> GCcY := (XLiJ - XS[j])*Sin + (YL[i] -~ YS[j]7)*Cos : 
> 

> 


以 GC 开始 的 变量 表示 了 在 旋转 坐标 系 中 螺钉 相对 飞船 的 位 置 和 速度 向 量 . 这 个 系统 象 一 个 地 心 系 
统 . 


> plot([seq([GCX，GCY]，i = 0..328)] ，labels = [dx%，' 和 dy]); 
> Plot([seq([LGCVx，GCVY] ，i = 0..327)] ，labels = [da Vx'c ,cd Vy]); 


图 22.19 和 22.21 表明 螺钉 不 会 丢 ! 太空 人 有 机 会 抓 到 这 个 螺钉 ， 只 要 他 愿意 等 待 一 个 轨道 周期 . 
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22.9 结论 


1. MAPLE 极 大 地 简化 了 物理 中 的 数学 应 用 . 考虑 在 这 一 章 中 用 到 的 数学 工具 : 符号 运算 ， 线 性 
人 代数， 方程 的 数值 解 ， 微 分 方程 的 数值 解 ， 数 值 积 分 和 MAPLE 图 形 . 在 教学 中 对 结果 进行 图 
形 说 明 是 非常 重要 的 . 

2. 因为 在 教室 中 MAPLE 是 解决 问题 的 有 力 工 具 , 所 以 重点 可 放 在 物理 问题 和 用 数学 语言 对 它 的 
描述 上 . 

3. 怡 当地 使 用 MAPLE, 不 仅 需 要 了 解 MAPLE. 还 必须 具备 很 好 的 数学 知识 . 

4. 经 验 ， 如 果 计 算 机 代数 系统 被 用 作 教学 设施 ， 许 多 现行 的 教学 模式 必须 改变 . 





固定 方向 
图 22.19 螺钉 位 置 22.20 螺钉 速度 向 量 
1 1060 ， 2000 
地 球 定 向 系统 


图 22.21 螺钉 位 置 图 22.22 螺钉 速度 向 量 
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气 云 的 最 小 二 乘 拟 合 


本 和 多 


第 二 十 三 章 
全 .Ca7de7 


我 们 考虑 坐标 度量 衡 学 中 (参见 站, 上) 的 一 个 最 小 二 乘 问题 ， 当 一 个 工作 板 是 在 参考 框架 中 
的 标 称 位 置 时 ， 它 上 面 的 mm 个 点 ， 所 谓 标 称 点 , 由 它们 在 构造 平面 的 精确 坐标 给 定 ， 我 们 用 


23.1 引言 
Xi 区 3 


表示 标 称 点 在 这 个 位 置 的 坐标 向 量 . 现在 假设 一 个 坐标 度量 仪 采集 到 与 另 一 个 工作 板 相 同 的 点 . 
1 6 E 严 1 ?区 3 
它们 是 在 一 个 不 同 于 参考 框架 的 框架 中 .我 们 要 解决 的 问题 是 求 出 从 给 定 的 标 称 点 映射 到 测量 点 
(23.1) 


这 个 仪器 记录 测 醒 点 的 坐标 


5 一 OOXi 十 t， 2? 一 1. 
(23.2) 


的 坐标 变换 . 
我 们 需要 求 一 个 平移 向 量 t 和 一 个 det(Q) = 1 的 正 交 和 抢 阵 Q, 即 QIQ = 志 使 得 
国有 
在 三 维 空间 中 和 > 6, 方程 (23.1) 是 一 个 超 定 方程 组 ， 只 有 测量 没有 误差 ， 它 才 是 一 致 的 .对 于 实 


际 的 仪器 ， 这 是 不 可 能 的 . 因此 我 们 的 问题 是 ， 确 定 最 小 二 乘 问 题 
ki ACOXi 十 tt 
的 未 知 数 Q 和 tt. Hanson 和 Norris[4] 已 经 很 好 地 研究 并 解决 了 这 个 问题 . 


计算 平移 
ki Si 十 上 一 1. .7 
(23.3) 


23.2 


在 一 维 的 情况 ， 给 定 直线 上 两 个 点 集 . 和 拖 阵 @ 正好 是 常数 1, 我 们 必须 确定 一 个 数量 纺 使 得 
令 4= (aa= (和 0 细 ) 和 b= (zzm)7, 此 问题 变 成 


4tf 久 有 一 口 . 
Ti )， 因此 
(23.4) 


根据 法 方程 414t = 4I(a 一 b), 我 们 得 到 rt = 和 人 (6 
二 8 
i 一 上 一 天 其 中 2 > 


ki; 必 Xi 十 七 ， 证 一 打 生生 


对 于 mm > 1 我 们 能 推广 此 结果 . 考虑 
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用 德 阵 符 号 ， 这 个 最 小 二 乘 问题 变 成 了 是 mxzm 的 单位 答 阵 ) : 


了 &41 一 Xi 
了 E2 一 X2 
志 包 
了 5 
法 方程 是 rnt = > 这 1(5i 一 xi) 于 是 
已 有 加 了 本  T 世 
一 一 和 其 中 一 到 2 6 和 天 = 元 六 Xi 


2 一 工 2 一 1 


因此 ， 我 们 已 经 证 明 ， 平移 t 是 连接 对 应 点 集 的 两 个 重心 的 向 量 . 


23.3 ”计算 正 交 和 矩阵 
将 前 一 节 的 结果 ， 应 用 于 最 小 二 乘 问题 


6 忆 COxi 十 上 t 生 一 >》 le@xs+t 一 后 上 = min (23.5) 


2 一 1 
得 到 t 是 连接 点 集 纪 和 xs 的 两 个 重心 的 向 量 ， 即 ， 
t 一 E 一 Qx5. (23.6) 


利用 方程 (23.6), 在 (23.5) 中 消去 t, 于 是 问题 变 成 


G(8) = >》 1@(xc 一 冤 一 (一 司 | = min， (23.7) 
一 1 
引进 新 的 坐标 
ai :一 Xi 一 浆 和 bi: 一 台 一 5 
问题 变 为 : 
G(@)= 》 eai -bi = min. (23.8) 
一 1 
我 们 用 向 量 组 成 矩阵 


下 这 (al， 。,。 ,am ) 和 万 证 (bl， 。。 .bm 
并 利用 Frobenius 范 数 重 写 函 数 G 
G(QG) = ll@4 一 妃 公 、 


因为 一 个 矩阵 和 它 的 转 置 和 矩阵 的 Frobenius 范 数 是 相同 的 ， 所 以 我 们 最 后 得 到 一 个 Procrustes 问题 
[5}: 求 一 个 正 交 和 矩阵 &, 使 得 
BT - 4TQTI2 = min . (23.9) 
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23.4 Procrustes 问题 的 解法 
我 们 考虑 一 个 问题 : 给 定 两 个 mm x 和 托 阵 C 和 呈 , 其 中 mm 之 mw 求 一 个 呈 x 正 交 矩 阵 书 , 使 
得 
lcC -DPI = min . 


我 们 需要 Frobenius 范 数 的 一 些 性 质 . 其 定义 是 


上 4 上 = >》 >》 ai = >》 aila, 其 中 ai 是 4 的 第 7 列 (23.10) 
1 一 1 7 一 1 JJ=1 
注意 
4 = trace(474) = 》 Xi(474). (23.11) 
一 工 


记 住 矩阵 的 迹 是 对 角 线 元 素 之 和 ， 并 且 它 等 于 特征 值 之 和 . 方程 (23.11) 给 出 一 些 有 用 的 关系 : 
1 如果 已 是 正 交 的 ， 则 1 P4Iz = 44lz. 另外 ， 因 为 14 中 ze = 1 47 和, 所 以 有 4PIzr = 4 
2. 

ll4+ 如 2 = trace((4 十 万 )T(4 十 万 )) 

一 trace(4T4 二 BITI4+4I 了 十 刀 IDB) 

= 一 trace(4I4) 十 2trace(41I 玉 ) +trace( 瑟 已) 
上 4 十 如 本 三 MI 十 | 如上 E 十 2 trace(4T). 


现在 我 们 将 最 后 的 关系 式 应 用 到 Procrustes 问题 : 
1C 一 PI 人 =1CI 人 十 DPI 人 一 2trace(PTDTC) = min . 
计算 最 小 值 等 价 于 最 大 化 
trace(PTDIC) = max . 
利用 忆 5C 的 奇异 值 分 解 CZY ,可 得 到 
trace(PTDPTIC) = trace(PIUZYT). 
因为 Z 和 了 是 正 交 的 ， 廊 以 我 们 可 以 把 未 知 矩 阵 已 写成 如 下 形式 
书 =V2ZIVT, 其 中 2 是 正 交 的 . 


于 是 
trace(PIDIC) = trace(VZEUTUZDVT) =trace(VZZDVT) 


= trace( GDVTVYT) = trace( GBFDZ) 
人 
其 中 对 于 任意 正 交 和 托 阵 2, 由 zi<l 可 得 上 而 不等式 ， 而 且 当 2 = 工时， 可 达到 边界 . 注意 ， 如 
果 厂 ”C 不 是 满 秩 ， 则 解 不 唯一 (参见 [4]). 从 而 我 们 证 明了 下 列 定 理 ， 
定理 利用 DIC 的 正 交 极 因子 ， 即 已 = UVT, 其 中 TDZVTIT 是 DIC 的 奇异 值 分 解 ， 可 求解 
Procrustes 问题 ‖C 一 万 忆 儿 2 = min . 
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和 矩阵 的 极 分 解 是 复数 的 极 表示 的 推广 . 和 矩阵 分 解 成 一 个 正 交 和 插 阵 乘 以 一 个 对 称 ( 半 ) 正定 抢 阵 
的 积 . 利用 奇异 值 分 解 或 其 它 算法 [3], 可 计算 此 分 解 . 在 我 们 这 里 ， 有 


DPIC=TDVT=TTVT YYVT. 
me Se 
正 交 半 正 定 


23.5 ”算法 


给 定 测 量 点 上 和 对 应 的 标 称 点 xiz = 1 ...,m. 我 们 要 确定 t 和 正 交 的 Q, 使 得 各 盖 Q@Qxi 十 t. 
计算 重心 : 


2. 计算 相关 的 坐标 : 


由 ER ai :一 Xi 一 元 
盏 := (bl,...,b)， bi :一 & 一 《 


3. 求解 Procrustes 问题 ||C - DPI = min, 其 中 C = BT,D=A4T 和 书 =QT. 首先 计算 奇异 值 
分 解 
4 刀 工 一 TDVTI. 
4. QT = TVT 或 Q@ = YUT. 
5. t 上 一 上 一 Q@QX. 
因为 技术 原因 ， 把 正 交 托 阵 & 分 解 成 初等 旋转 至 关 重 要 . 记 今 为 止 ， 我 们 给 出 的 算法 能 计算 一 个 
正 交 和 窍 阵 ， 但 是 不 能 保证 ， Q 表示 成 一 些 旋转 的 匀 积 ， 并 且 没 有 反射 发 生 .， 如 果 det(Q) = 1 则 
@ 可 表示 成 一 些 旋 转 的 乘积 . 然而， 如 果 det(Q) = -1 则 必定 会 有 一 个 反射 ， 这 可 能 没有 实际 用 
和 途 . 因此 我 们 应 求 det(@) = 1 的 最 好 的 正 交 和 矩阵 . 
在 [4 中 已 证 明 ， 约 柬 的 Procrustes 问题 


IC - DPIz = min， 服 从 于 det(P) = 1 


其 解 为 
己 = Udiag(1. .10VT， 


其 中 DIC = TUZVT 是 奇异 值 分 解 ， 几 = det(L7T II). 
它 的 证 明 是 基于 这 样 一 个 事实 ， 对 于 一 个 有 xzm 的 实 正 交 和 矩阵 QG, 其 中 det(2) < 1 它 的 迹 有 
上 界 
trace(G) 入 寻 一 2 并且 trace(G) 一 导 一 2 < Xi(G) = 1 1, 一 1 
这 可 由 2 的 实 Schur 型 [5] 证明 .因此 trace(2Gz) 的 最 大 值 是 > ci 一 0n, 并 在 和 =diag(1,...,1, 一 1) 
时 达到 . 于 是 我 们 得 到 算法 23.1 所 示 的 MATLAB 函数 pointfit. 
算法 23.1 
function [t，Q] = pointfit(xi ,xy) ; 
为 


xiq = sun(xi，)/lLength(xi); xiq = xiq，; 
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xq = Sum(CX?)/Length(x); xq = Xxq? ; 

A = X ~ Xxqkones(1,1Iength(x)) ; 

B = xi - xiqyones(1,1ength(xi)); 

[u sigma v] = svd(CA*B ) ; 

Q = vdiag([ones(1,size(v,1)-1) det(vyru:)])*u，; 
七 = Xiq - Q*yXq; 


23.6 ”分 解 正 区 和 矩阵 


正如 前 面 提 到 的 ， 正 交 和 矩阵 Q 分 解 成 初等 旋转 是 有 用 的 . 在 1 中 ， 从 给 定 的 标 称 点 映射 到 
测量 点 的 仿 射 变换 被 写成 
《= 忆 sRR2RIDo(x 一 Xo) 


其 中 
1 0 0 cz2 0 3s2 ca3  S3 0 
一 0 C1 S1 , 及 2 一 0 1 0 和 妨 a == 一 s53 ca 0 ) (23.12) 
0 一 31 CI1 一 52 0 C2 0 0 | 


是 平面 旋转 矩阵 ， 它 们 分 别 由 ck = cosbk 和 s = sinpk, 大 一 1;2,3, 定义 关于 zy 和 z 轴 的 旋转 ， 
Vo 是 一 个 给 定 不 变 的 正 交 和 矩阵 . 

从 已 知 变换 上 《= CQx +t, 我 们 容易 计算 矩阵 严 & 和 向 量 xo. 向 量 xo 与 tt 的 关系 是 -Qxo = t， 
于 是 


其 0 一 2 
为 了 计算 符 阵 玉 e, 首先 我 们 注意 


Q = RasRaRiUo < 全 RITRIRIOUT = 工 


从 而 我 们 可 进行 下 列 步 骤 : 
1. 构成 互 =QDT. 
2. 确定 旋转 角 9%a, 使 得 在 五 := 丸 1 忆 中， 元 素 hal 变 成 0: 
ca 一 53 0 术 玉 水 tarmb0as 一 一 fu， 
5 cg 0 1 万 = 0 二 < ca “一 cos 03， 
0 0 1 沙 于 六 s3 一 Sinb0a. 
3. 类 似 地 ， 在 瑟 := 有司 瑟 中 消去 Pai: 
Pa3l 
tan oo = 一 一 ，c2 一 cos02，s2 一 Sinb02. 
Pi1l 
4. 最 后 ， 在 克 := 玉 万 中 ， 旋 转 jay 为 0: 
ha32 
tan 01 一 一 一， C1L 三 cos 01 ， 3S1 一 Sin 0 


22 
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算法 23.2 
function [theta]j = rotangle(H) 
久 
if det(H)<O 
eIIOI()The matIix is not a Product of rotations ) 
end 
n = Size(H,1); 
theta = []; 
for 1 =1 :D- 1 
for ] = 工 + 1 : D 
theta_k = atan2(-H(j,i) ,HCi,iy)); 
theta = [theta_k，theta] ; 
c = cos(theta_k); s = Sin(theta_k) ; 
R = eye(Cn) ; 
R(Ci,i) = c; RGj,j) = c; 
R(i,j) = -sj R(j,i) = s; 
蕊 = 有 六; 
ena 


end 


因而 我 们 得 到 算法 23.2 所 示 的 MATLAB 画 数 rotangle. 


23.7 数值 例子 


我 们 以 两 个 三 维 的 例子 和 一 个 测试 函数 pointfit 和 rotangle 的 程序 结束 本 章 . 


23.7.1 第 一 个 例子 


首先 我 们 定义 一 个 校 锥 的 节点 
>> A= [1 0 0 0; 
>> O2 0 0; 
>> 0O003 0]: 

为 了 国 出 此 校 锥 ， 必 须 定 义 一 个 向 量 ， 它 表示 所 绘制 的 边 . 
>>Vv= [1 2 3 4 1 3 4 2]; 
>> plot3(AC1,v)，A(2,v)，A(G3,v)，:-.:); 
>> hold on; 
>> View(t15 ,20) ; 
>> axis([-2 2050 4]); 

然后 ， 在 此 校 锥 上 选取 一 些 标 称 点 
>>X= [0 0O0.5 0.5 0 O O 1 ; 
>> O O 革 1.5 0O.5 0 O ; 


研 Cander 
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>> O 1.5 0 0O.75 2.25 2 O ]; 
>> plLot3(Cx(1,:)，x(2，:)，X(3，:)， ?站 )) ; 
算法 23.3 
function [Qr]j = ang2orth(theta) 


hp generate orthogonal matLrix from given angles 


Qr = eye(3) ; 
了 = 二 
for TI = 忆 宕 直 7 生生 
for j=3:-1:i+l 
tt = 上 hetar(n) ; 
SsS= Sint); c = cogs( 七 ) ; 
U = eye(3) | 


ULi,i) = ci U(i,j) = s; 

U(j,i) = -sj U(j,j) = c; 

QTr=Ur*rQrin=Dn+ 1; 
enda 


end 


现在 我 们 将 模拟 测量 点 . 为 了 给 读者 可 再 产生 的 结果 ， 我 们 注释 出 随机 产生 的 数据 ， 用 固定 的 数 
值 代 替 它 们 . 通过 产生 三 个 角 和 利用 算法 23.3 所 示 的 MATLAB 郴 数 ang2orth, 我 们 构造 一 个 正 交 
矩阵 Qr: 

>> %thetar = rand(1,1:3); 

>> thetar = [Pi/4 Pi/15 -PiV6] ; 

>> RT = ang2orth(thetar) ; 
和 一 个 随机 平移 同 量 : 

>> Vtr = rand(3 ,1)*3; 

>> tr = [1;3;2] ; 
现在 我 们 能 计算 ， 并 画 出 这 个 精确 变换 的 棱锥 : 

>> B= Qr*rA+tr* ones(1，size(A,2)); 

>> Plot3(B(1,v) ，B(2,v)，B(3,v)，?:: 7) 

>> pause 


我 们 变换 标 称 点 ， 并 加 上 某 噪 声 以 模拟 测量 点 (又 因为 结果 的 再 产生 性 ， 我 们 明确 地 给 出 这 些 氮 六 


>> Ah/ 《Iandomly distorted) meastured Points ; 
>> % xi = 〈Qr*x+tryones(1,1Iength(x))+randn(size(Xx))V10O) ; 


之 之 

>> Xi = [0.8314 0.9821 1.0211 0.1425 0.2572 0.5229 1.7713 
>> 3.0358 4.5232 3.8075 4.4826 5.0120 4.5364 3.3987 
>> 1.9328 2.8703 1.0573 1.5803 3.1471 3.5394 1.9054] ; 


>22DPlot3CxCt ZL2 7 XIT《3 202 


>> pause 
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图 23.1 点 拟 合 





利用 函数 pointfit, 我 们 由 测量 点 估计 Q 和 上 声 并 画 出 这 个 拟 合 的 棱锥 (参见 图 23.1): 
>> [t,Q] = pointfit(xi,x) ; 
>> % the fitted PYramid: 
>>C=QyrA+tyr ones(1，size(A,2)); 
>> plot3(C(1,v)，C(2,v)，C(3:，v) ， 一); 
>> holQqQ off ; 
最 后 我 们 计算 这 个 拟 合 棱锥 的 旋转 角 ， 并 与 原来 的 进行 比较 . 
>> theta = rotangle(Q) 
七 heta := 
0.8282 0O.1772 -0.3964 
>> 七 hetar 
七 hetar = 
0.7854 0.2094 -0.5236 
作为 最 后 的 核对 ， 我 们 由 计算 的 角 6 产生 正 交 和 矩阵 $, 并 与 pointfit 的 结果 比较 : 
>> S = ang2orth(Ctheta)>; 
>> norm(Q - S) 
angs = 


2.3497e-~015 


23.7.2 ”第 二 个 例子 


在 这 个 例子 中 ， 我 们 构造 两 个 点 集 ， 它 们 可 由 一 个 反射 精确 地 相互 变换 .因为 物体 的 方 奖 会 
改变 ， 旋 转 与 测量 点 不 匹配 . 我 们 将 只 利用 这 些 旋转 ， 计 算出 最 好 的 解 . 再 把 棱锥 的 顶点 看 作 标 称 
点 : 

>> % Define Dominal Points . 
>> A = [11000020.0)3.3 30]:; 
>>VvV= [L2341324]; 
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>> plot3(A(1,v) ，A(2,vV)，AG3V)， 一 2) 3; 
>> hold on; 
>> view(110,20) 
>> axis([-14 2 -1 3 -3 3]) 
我 们 用 棱锥 的 项 点 作为 测量 点 ， 这 些 顶 点 在 zy 平面 反射 : 
>> B= [1000;0200;-3 -3 -3 0]; 
>> plot3(B(1,v)，B(2,v)，B(3,v)，?: )) 
我 们 计算 最 好 的 拟 合 ， 并 在 图 23.2 琢 出 结果 : 
>> [t,Q] = Pointfit(B ,A) ; 
>>C=Q*rA+tt*yr ones(1，size(A,2)) 
>> Plot3(C(t,v)，C(2,v)，C(3,v)， 一) 
>> text(1,-.25,3,)Xx1?); text(0,2.1,3，?X27:1) 
>> text(0,.1,3.3,?x3，); text(0,-1,-0.1,?x4，Xxi4，c4)) 
>> text(1,-.25,-3,?xi1:); text(0,2.1,-3，'Xxi2，c2)) 
>> text(0,.1,-2.65,，?Xxi37) ; text(0.7,-0.3,-2.65，,?:cl1)?) 
>> text(1.75,.6,-2.65,?，c3)?) 
>> theta = 180/pi*rrotangle(Q) 
>> holdQ ofttf ; 


23.2 最 佳 旋 转 : zi 标 称 点 ， zz “测量 点 ，ci 最 佳 拟 合 
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第 二 十 四 章 ”社会 过 程 建 模 


.. 万 repicek ad 7 了，PItmner 


某 些 社会 过 程 可 以 使 用 由 Weidlich 和 Haag 介绍 的 模型 来 研究 (参见 [3],[ 引 ). 他 们 企图 开发 一 
个 定量 社会 学 的 一 般 背 景 . 这 一 章 我 们 将 应 用 他 们 的 方法 使 用 MAPLE 来 求解 两 个 模型 . 

社会 系统 演化 建 模 的 一 般 方 法 基于 一 个 特征 空间 ， 它 被 定义 为 一 个 线性 同 量 空间 . 它 的 回 量 
根据 社会 成 员 在 社会 中 的 行为 特征 把 他 们 描述 为 一 个 社会 群体 [6j. 这 些 特 征 可 以 是 职业 ， 偏 向 于 
某 个 政党 ， 生 活 标 准 ， 收 入 水 平等 . 

特征 空间 的 向 量 根据 已 知 特征 a 把 系统 中 的 一 个 成 员 归 入 某 个 群体 1 令 mg 表示 这 些 成 员 的 
个 数 . 社会 系统 的 演化 是 由 改变 群体 成 员 对 特征 a 的 看 法 来 确定 的 . 

我 们 定义 一 个 转移 概率 wy (tb 表示 单位 时 间 由 特征 a 表示 的 成 员 的 看 法 发 生变 化 ， 也 就 是 从 
群体 7 转 入 群体 ;的 概率 . 则 mmf8 的 增 量 将 由 如 下 的 主 方程 给 出 

Sm 2 -于 邓 吧 人 一 mg(buos(b， (24.1) 


3 


它 是 摘 述 一 类 社会 系统 的 基本 方程 65. 这 个 主 方程 可 以 摘 述 具有 空间 结构 (如 人 口 迁 移 ) 和 时 间 震 
荡 (如 Schumpeter 钟 [外 ) 的 过 程 ， 


24.2 ”人口 迁 移 建 模 


方程 (24.1) 的 一 个 有 趣 的 应 用 是 建立 生活 在 两 个 城市 居民 区 (a = 2) 的 两 群居 民 (s = 2) 和 他 
们 的 移民 之 间 的 关系 模型 . 这 两 群 人 分 别 用 mm 和 ?7 来 表示 . 它 是 来 源 于 Atlanda(Georgia,USA) 的 
白人 和 黑人 居民 的 移民 模型 (参见 [6]). 

假设 两 群居 民 的 人 数 都 是 常数 同时 分 别 等 于 2rmo 和 2no. 这 两 群 人 在 时 间 鞋 散 布 在 两 个 城市 
的 居民 区 中 . 在 每 个 居民 区 的 人 数 分 别 是 rna ( 雪 ,rmz( 切 和 mi 人 tn 人 tt 则 ri 人 lt 二 ma 人 三 2mmo 和 
mallt) 十 ma 人 (t) 一 2720. 

引入 新 的 变量 mm 坟 =rna 提 一 rno=rno 一 mm2(t 和 ?mt 三 Ta) 一 ro=7o 一 022(t, 我们 能 够 把 
主 方程 (24.1) 化 简 为 每 群 人 一 个 方程 . 我 们 得 到 如 下 的 方程 组 (它们 在 当前 是 没有 关系 的 ) 

CE 一 (mo 一 mm 的 ju 本 ( (mo 十 严 ()u 叶 人) 


(no 一 nj)u 风 人- (no 十 nbjw 归 人 


(24.2) 





现在 我 们 需要 导出 转移 概率 函数 w8(b 的 模型 ， 对 于 每 个 人 群 mm,m 要 用 到 三 个 常数 : 
1.， 自然 优先 参数 cm,an: 描述 人 群 mm 生活 在 同一 个 城市 居 虹 区 的 自然 趋势 ， 
2. 内 部 倾 问 参数 bn,bn: 描 述 人 和 群 m,m 与 同一 群 人 生活 在 同一 个 城市 居民 区 的 趋势 ， 
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3. 外 部 倾向 参数 cn,cn: 摘 述 人 群 mm 与 另 一 群 人 生活 在 同一 个 城市 居民 区 的 趋势 . 
则 转移 概率 函数 可 以 由 使 用 这 些 参 数 的 指数 函数 来 定义 (参见 [6j): 


岂 了 (t) E 4eam 十 bmrntti) 十 cmm(t) 


?72 _ 一 (am 十 prmlti 十 crmmntt)) 
2 了 人世) 4e (24.3) 


| 


0 (t) 二 4ean+bnrn(ti) 十 cnm(t) 
02 (加 到 4e 一 (en 十 bnm(t) 十 cnmt(t)) 


其 中 4 是 时 间 斥 度 因 子 . 
引入 新 的 变量 z(b = mm 人 bmo,y(to =m(t/no, 同时 表示 





ut 一 am 十 bmrraoz(t) 十 cmraoy(t， 
of(t) 一 an 十 bpyrnoz(t) 十 cnmaog(t)， 
从 (24.2) 和 (24.3) 我 们 得 到 
人 一 24(sinh vt) 一 Z(t)cosh zu(t))， 
人 (24.4) 
人 一 24(sinh v(t 一 V(t) cosh v(t))， 


其 中 sinh 必 = (ev 一 e )/2,cosh 习 一 (e 十 e 开 )/2. 
我 们 答 试 使 用 MAPLE 在 区 间 (0,7) 上 求解 (24.4), 初始 条 件 为 z(0) = 蕊 ,y(0) = 了 : 


> := am + bmnyrmnoOyrx(t) + cmknO*ry( 人 (七 ) : 

> V := an + bnymnO*xX(t) + cn#ynOyy (七 ) : 

> eql := qiff(x(t),t) = 2*+Ayr(SinhGu) - X(t)*cosh(u)) : 
> eq2 := diff(y(t) ,t) = 2*+A+r(Sinh(v) - y(t)*Ccosh(v)) : 
> init := X(0) = X，VY(O) = Y: 

> Sol := dsolve({feql1，eq2，init}，{x(t) ，y(t)}) ; 


SO :一 


上 面 对 于 一 般 参 数 am,an,bm;,bn,cm,cn 的 初 值 问题 似乎 没有 解析 解 . 我 们 可 以 使 用 MAPLE 计算 
数值 解 . 


24.2.1 不 带 调节 的 周期 迁移 


移民 模型 (24.3),(24.4) 的 解 依赖 于 参数 的 数值 . 有 三 种 不 同类 型 的 解 (参见 [1]). 其 中 两 种 收 
敛 于 定常 的 平衡 状态 (一 种 是 在 每 个 居民 区 我 们 将 有 ro 个 第 一 群 人 和 mo 个 第 二 群 人 ， 另 一 种 是 
每 一 群 人 分 别 占据 一 个 居民 区 ). 最 有 趣 的 是 我 们 这 里 将 要 介绍 的 第 三 种 解 ， 它 将 收敛 于 一 个 极限 
环 . 

Kvetoa 研究 了 转移 概率 的 参数 4, an,an,bm,bn,cncn( 人 参见 [2]).Kvatoa 研究 了 生活 在 Most 
(Northern Bohemia, 捷克 共和 国 ) 的 Czechs 人 和 Gipsies 人 之 间 的 移民 . 基于 统计 学 的 研究 KKvetog 
发 现 了 如 下 的 参数 值 : 

> Param := A= 1/2，am= 0，bm = 1.2e-4，cm = 0.5e-3， 
> mO 10000，an= 0，bn = -le-4，cn = 1.2e-3， 
> DO 1000 : 
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> save(u，Vv，Param， “system.sav':) ; 


我 们 求 方程 组 (24.4) 的 数值 解 ， 初 始 条 件 为 两 群 人 接近 相等 地 被 分 在 两 个 居民 区 中 . 


init := X(O) = 0，y(0) = 0.01: 

eql := Subs(param，eqt): eq2 := Subs(param，eq2) : 

sol := dsolve({feqt，eq2，init}，{fx(t)，y(t)}+，numeric) : 

with(Plots) : 

odeplot(sol，[xkt)，y(t)]，0..60，numpoints = 300， 
View=[-1..1，-1..1]); 

odeplot(soLl，[Lt,x(t)，y(t)]，0. .60，numpoints = 300， 
orientation = [70,55] ，colour = black，axes = normal) ; 


MVVYVMYMMYMMVMVYV 


解 z(b 关于 y(b) 的 相 平面 图 (参见 图 24.1 左 侧 ) 使 我 们 能 够 了 解 这 个 解 如 何 收敛 于 震荡 形式 的 周 
期 解 (参见 图 24.1 右 侧 ). 
Kvatoii 还 发 现 两 个 人 群 的 初始 分 布 不 会 影响 到 他 们 周期 地 迁移 . 这 可 以 由 下 面 的 例子 说 明 : 
inijit := X(O) = -1，y(O) = 11: 
sold := dsolve({eql，eq2，init}，{x(t)，y(t)j} ,nuneric) : 


codeplot(sold，[x(t)，y(t)] ，0..60，numpoints = 300， 
View = [-1..1，-1..1]，color = black); 


图 24.2 显示 出 z(b 关于 y 信 的 相 平 面 图 与 图 24.1 左 侧 的 相 平面 图 有 相同 的 函数 闭 包 . 


MYMVVV 


24.1 不 带 调节 的 周期 迁移 ， z(0) = 0,y(0) = 0.01 
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这 个 解 表 明 当 一 个 人 群 的 居民 不 愿意 与 第 二 个 人 群 在 同一 个 居民 区 生活 时 常常 会 发 生 周 期 性 的 移 
攻 


24.2.2 ” 带 有 调节 的 周期 迁移 
Weidlich 和 Haag 对 于 居民 有 向 迁移 发 展 了 模型 (24.3)(24.4)( 见 [6]): 





下 一 24(sinhzu(t 一 zt) coshu(t)) 十 7 
一 24(sinhvu(t 一 2V(tcosho(t)) 十 5 


其 中 > 和 s 是 某 些 调节 参数 ( 即 ， 它 表明 政府 支持 某 一 群居 民 迁 移 到 某 一 个 指定 居民 区 的 直接 于 
预 )- 
调节 参数 ” 和 s 的 作用 可 以 使 用 同上 节 一 样 的 数据 ( 见 [3]) 显示 出 来 : 


solrs := qdqsolve({eqlz ，eq2s，jinitrs}，{x(t) ，y(t)}，numeric) : 
odeplLot(solrs，[x(t)，y(t)]j] ，-30..50，numpoints = 200， 
View = fL-1..1，-1.,.1] ，color = blLlack); 


> YestaTr ; 

> with(plots) : 

> Tead('system.savV') : 

> eqtr := diff(x(t)，t) = 2#+A*y(sinh(u) - X( 七 )*Cosh(u)) + 工 : 
> eq2s := diff(y(t) ，t) = 2*Ayr(Sinh(v) - y(t)*cosh(v)) + S: 
> eqtr := subs(param，eqlzr): eq2s := subs(Pparam，eq2s) : 

> initrs := X(O) = 0，y(0) = 0.01: 

> TI:= -0.2: 8 := 0.1: 

> 

> 

> 


图 24.3 的 相 平 面 图 与 图 24.2 的 相 平 面 图 有 类 似 的 震 功 解 闭 包 . 
增 大 调节 参数 到 ” = -0.3,s = 0.3, 问题 的 解 收敛 于 一 个 稳定 的 值 ， 如 图 24.4 所 示 . 
> IT:= -0.3: := 0.3: 
> solrs := dsolve({eqlrz，eq2s，initrs}，{x(t)，y(t)}，nuneric) : 
>  odeplot(solrs，[t，xCt)，y(t)] ，0. .100，humpoints = 300， 
> orientation = [-50，45j ，axes = normal，colour = black); 


图 24.3 具有 弱 调 节 的 周期 迁移 ，7 = 一 0.2,s 一 0.1 图 24.4 具有 强调 节 的 周期 迁移 ， > = -0.3,s = 0.8 





我 们 可 以 看 出 ， 适 当选 择 调节 参数 ， 完 全 可 能 得 到 指定 的 移民 结构 . 
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24.3 ”战略 投资 模型 


我 们 将 考虑 以 “Schumpeter 时 钟 ” 著称 的 经 济 上 的 周期 震荡 (萧条 和 繁荣 周期 )( 人 参见 [名 ). 在 工 
业 循 环 的 模型 中 基本 量 是 战略 投资 Tb = 五 ( 雪 十 忌 (, 其 中 五 ( 是 扩大 化 投资 ， 吾 ( 坟 是 合理 化 投 
资 .我 们 定义 投资 结构 指数 为 FU) = (五 ( 切 一 到 ( 的 )A7b, 我 们 把 它 分 解 为 一 个 常量 2o 和 一 个 变量 
z(t 妇 ,用 它 表示 Schumpeter 时 钟 的 记 时 (参见 [ 吉 )， 


1) 一 忆 0 十 之 ( 世 ) . 


组 建 Schumpeter 时 钟 模 型 时 要 考虑 到 投资 结构 依赖 于 投资 者 的 分 布 . 这 里 有 两 类 投资 者 ( 见 [5]). 
一 类 是 已 型 投资 者 ， 他 们 偏爱 累进 的 或 扩大 的 投资 并 且 投 资 要 远大 于 平均 投资 额 . 另 一 类 是 五 型 
投资 者 ， 他 们 偏爱 合理 的 投资 并 且 投资 要 小 于 平均 投资 额 . 

令 7a( 世 是 五 型 投资 者 的 数量 ， ?zz( 菇 是 尺 型 投资 者 的 数量 ， 同 时 所 有 投资 者 的 数量 是 常数 
2N, 即 ，27N=2at) 二 naz(t. 使 用 投资 者 布局 函数 m 雪 = (ni 一 nm 人均)/2, 我 们 可 以 写 出 (类 似 于 
上 一 市 )Patt = 三 NTTntnpa(t 一 一 7(t). 

在 上 一 节 引 入 了 转移 概率 8 的 . 在 这 一 节 ， 转 移 概 率 8 (的 意味 着 (每 单位 时 间 ) 子 系统 a 
的 投资 者 观点 改变 的 概率 ， 也 就 是 说 他 的 隶属 关系 从 群体 了 妨 型 投资 者 ) 转变 到 群体 ?已 型 投资 
者 ) 的 概率 . 对 于 上 面 定义 的 投资 者 数量 nb,mai(b,ma(b) 使 用 方程 (24.1), 我 们 得 到 下 面 的 投资 者 
分 布 的 平衡 方程 an) 

人 m2(t)ta2l(t) 一 Pi(t)tl2( 世 ). (24.5) 


把 新 的 标准 化 变量 z( 怕 = nb/N 代入 方程 (24.5), 就 得 到 如 下 的 方程 
dz(t) 
dt 
主要 的 问题 仍然 是 求 出 转移 概率 wlz( 思 ,zli( 的 的 适当 公式 ( 见 [3 引 ). 用 转换 函数 pt 表示 投资 者 的 
主张 从 一 个 类 型 到 第 二 个 类 型 的 变化 . zt) 的 正 值 表示 从 鼠 型 投资 到 三 型 的 转变 . 反之 ， P(t 
为 负 值 . 协调 量 9 表示 一 个 投资 者 与 另 一 个 投资 者 努力 同步 的 强度 . 则 可 以 定义 如 下 的 转移 概率 
郴 数 : 





-oz((L-z() 一 uaz(b(L+z(b) (24.6) 


il2(t 让 一 aeP(t 上 9 人 
21 Tt = 一 Ce 一 (2( 妇 十 gz( 蕊 ) 
其 中 4 是 时 间 尺 度 因子 . 
把 这 些 转移 概率 函数 代入 方程 (24.6), 类 似 于 上 一 节 ， 我 们 得 到 : 


区 一 24[sinh(p(t 切 十 qz( 切 ) 一 zt) cosh(p(t) 十 gz 人 tb)]. (24.7) 


投资 震 划 是 由 转换 函数 p( 妇 的 时 间 变 化 产生 的 .Mensch[3] 导出 了 如 下 的 关于 转换 函数 的 方程 


CE 一 一 2(po sinh(az(t) 十 Pt) cosh(az( 切 ))， (24.8) 
其 中 妃 > 0a>0 和 po >0 是 特征 常数 
方程 (24.7) 和 (24.8) 描述 了 一 个 战略 投资 的 发 展 模型 . 它 被 用 于 模拟 德国 从 50 年 代 到 70 年 
代 的 经 济 增长 ( 见 [3]), 实际 情况 和 计算 结果 非常 一 致 . 
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ID), 初始 条 件 为 z(0) = 0.01,p(0) = 0. 


esStazt : 

eql := diff(x(t)，t) = 2*+Ak(sinh(p(t) + qyX(t)) - 
Xx(t)*cosh(P(t) + q#yx(t))): 

eq2 := diff(p(t) ,七 ) = -2yrB*yr(PO+*Ssinh(a 冰 Xx( 蕊 ) ) 十 
P(t)*cosh(Cayx(t) ) ) : 

B :=0.8: Ai:= 4*rB: a:=4: pPO :=0.5: q := 1.6: 

init := XGO) = 0.01，P(O) = 0: 


sol := dsolve({eql，eq2，init}，{x(t)，P(t)}，numeric) : 


with(plots) : 

odepPlot(sol，[x(t)，Pp(t)] ，0..10，numpoints = 200， 
color = black) ; 

odePlot(sol，[t，x(t)，Pp(t)] ，0..10，numpoints = 200， 


JJ 7Frebtceg ad 了 Prtmzer 


为 了 求解 和 显示 Schumpeter 时 钟 ， 我 们 取 下 述 参数 值 : 妃 =0.8,a=4,po=0.5,4=4,9== 
1.6( 见 


orientation = [-100，50] ，axes = normal，colour = blLacky); 


图 24.5 的 左 图 显示 出 问题 的 解 和 极限 环 . 这 个 图 可 以 解释 为 : 
. 象限 (p() > 0,z 人 > 0) 表明 当 五 型 投资 者 为 多 数 并 且 经 济 环境 有 利于 扩大 投资 这 时 我 们 
得 到 了 一 个 繁荣 的 周期 . 





2. 象限 tt) < 0z( > 0) 表明 当 瑟 型 投资 者 仍然 为 多 数 , 但 经 济 环境 支持 到 合理 投资 的 转移 . 
转换 函数 pz(b 的 值 已 经 是 负 的 ， 这 意味 着 型 投资 者 的 数量 将 减少 . 这 是 一 个 从 繁荣 到 萧条 
的 转移 状态 . 
3. 象限 (p( 切 < 0,z() < 0) 表明 当 玉 型 投资 者 为 多 数 同时 经 济 环境 有 利于 合理 投资 ， 这 时 我 们 
得 到 了 经 济 的 萧条 状态 . 
4. 象限 (p( > 0,z 人 的 < 0) 表明 即使 仍然 是 尺 型 投资 者 为 多 数 ， 趋 于 扩大 投资 的 趋势 已 经 开始 
了 . 这 个 状态 是 从 妆 条 转向 繁荣 的 转移 状态 . 
24.5 Schumpeter 时 钟 
参考 文献 


[H J. KREMPASKY ET AL，Synergetics，Veda，Bratislava，1987(in Slovak). 
[2] J. KREMPASKY，R. KVETON，Acta Phys. Slov., Vol.33, 1983, p.115. 


[3 QG. MENSCH，G. HAAG，W. WEIDLICH, 已 conometrica, Vol.50，1982， P.15. 
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第 二 十 五 章 解析 函数 的 等 值 图 


开 . GautscAhz a72d 7] 人 aladvogelt 


在 MATLAB 中 有 两 种 构造 解析 函数 等 值 图 的 简易 方法 ， 即 等 模 线 和 等 相位 线 . 一 个 是 利用 
MATLAB 的 两 变量 函数 contour 命令 , 另 一 个 是 解 等 值 线 满 足 的 微分 方程 . 这 里 用 函数 几 z) = en(z) 
来 说 明 ， 其 中 局 

ea(2 王 人 
是 指数 级 数 的 前 m” 项 部 分 和 ，，en 为 工 的 等 模 线 对 常 微 分 方程 的 数值 解 有 特别 意义 ， 对 于 阶 Tayler 
展开 方法 和 史 阶 (1 入 mn<4) 的 任意 步 Runge- Kutta 显 式 方 法 (参见 [4,89.3.2), 它 描绘 了 绝对 


稳定 区 域 . 


(25.1) 


25.2 由 contouzr 命令 画 等 值 图 


设 fF(z) = re” 是 解析 的 . 我 们 可 以 将 模 ” 当 作 两 个 变量 ",y 的 函数 ， 其 中 z = z + 过 ; 类 似 
地 ,相位 ” 也 可 以 作为 两 个 变量 ,2 的 函数 ，-T < < 于 是 ,我 们 可 以 对 > 和 % 应 用 MATLAB 
的 命令 contonuz 而 得 到 模 和 相位 的 等 值 线 . 
在 下 面 的 MATLAB 程序 中 ， Z 和 % 值 的 集合 被 集中 在 矩阵 a 中 (在 MATLAB 意义 下 )， 作为 
contour 命令 的 输入 矩阵 ， 以 算出 了 =en 的 7 和 w% 的 值 . 
程序 首先 定义 等 值 图 的 网 格 h 和 数值 amax. 癌 量 bounds 包含 对 整个 图 有 效 的 z 和 ?坐标 的 上 
界 和 下 界 . 这 里 所 选取 界限 被 用 来 适应 前 四 项 指数 和 .， 然后 定义 f(z) 的 模 和 相位 的 等 值 量 vabs0 
和 vang0. 最 后 的 工作 是 生成 向 量 x 和 y, 它们 包含 了 用 于 网 格 点 矩阵 a 的 离散 的 和 ?3 值 . 在 
an 次 循环 中 ， en 在 整个 网 格 上 的 值 三 是 由 与 计算 en 在 单 点 上 的 值 几 乎 一 样 的 命令 生成 的 ， 其 中 
t 代表 级 数 (25.1) 的 一 个 单项 唯一 的 差别 是 表达 式 t<t.*a/D, 其 中 运算 符号 . * 表示 和 拖 阵 局 和 
a 的 元 素 逐 个 相 乘 ， 这 个 程序 的 最 后 一 行 (在 这 里 被 符号 色 注释 掉 ) 产生 figure(n) 的 EPS 文件 
fign.eps, 可 以 被 打印 或 插入 一 个 文本 文件 . 
>> X Contour PlLots of the first nmax exponential Sums (Figure 1) 
>> 人 
>> hb = 1/64; mnmax = 4; bounds = [-3.25 .75 -3.375 3.375] ; 
>> Vvabs0O = [0:.1:1]; vang0o = [-.875:.125:1]*pPi; 
>> X = boundqs(t):b:bounds(2) ;  y=bounds(3) :hb:bounds(4) ; 
>> a = ones(Size(y):))*#X + Iyy)? 冰 Ones(Size(X)) ; 
>> 4 Next 1Line: a Shorter way of geneTating a (more memory!) 
>> 兴 [xx,yYyY]=meshgrid(x,y) ; a=XX+Iryy ; 
>> 七 = ones(size(a)); 荆 = 七 ; 


>> [for 卫 = 1: DmaxXx 





第 二 十 五 章 解析 函数 的 等 值 图 301 


>> if n<= 2，Vvabs = Vabs0;i vang = Vango ; 


>> elseif n == 3，vabs = [vabs0 .47140452] ; vang = VangO 
>> else vabs = [vabs0 .58882535 .27039477] ; 

>> vang = [vang0 1.48185376 -1.48185376] ; 

>> end ; 


>> 寸 = 七 .yxa/ni ff=T+ 七 ; 

>> figure(n); clLf; hold on; 

>> axis(bounds); axis :image ; 

>> ”contour (X，y，abs(f)，vVvabs) ; 

>> ”contour (X，y，angle(f)，vang) ; 

>> end ; 

>> % figure(n);i Print -deps fign; 
4. 一 1:1:41 的 结果 展示 在 下 面 的 平面 图 中 .en 的 m 个 零点 清晰 可 见 ， 从 这 些 零 点 发 射出 等 相 
位 线 . 在 这 些 零点 附近 ， 等 模 线形 成 环 状 ， 半 径 趋 于 零 ， 有 逼 近 零 点 . 等 值 线 对 应 = .1:.:L1:1 和 
帮 宇 &r : 六 : 

在 z 点 ,ef(zo) = en-i(zo) = 0,m > 2, 两 条 等 模 线 相交 (参见 下 面 83.1).r 值 分 别 为 r = |en[zo) 
或 了 = |zo|"/m 这 是 因为 


en(z) 一 en_1(z) 十 王 . (25.2) 
这 些 临 界线 也 出 现在 平面 图 中 ( 见 程序 的 if 命令 ). 当 =2 时 ， 这 些 曲 线 穿 过 zo = -1 相应 的 
7 一 二 而 对 双 =3 和 了 = 三 4, 分 别 有 ( 精 确 到 8 位 十 进 制 数 ):zo = -十 br== V2/3 = .47140452 和 
zo = --.70196418 十 1.80733949i, r 一 (1.93887332)4/24 一 .58882535, zo = 一 1.59607164, r = .27039477. 
好 的 ”> 曲线 一 定 也 对 应 好 的 w 曲线 ! 它们 的 奇异 点 也 是 en 的 零点 z0 (参见 83.2), 在 这 一 点 相 
应 的 2 值 由 en(zo)/ilen(zo)| = (zo/|lzol)j” = e92 定义 ， 即 只 =margzo. 因此 ， 对 m=2, 我 们 有 w%= 
0 (mod 2r), 而 对 郊 = 3 我 们 得 到 wp = 士 开 分 别 对 应 zo = -1 士 所 有 这 三 个 2 值 已 被 包含 在 上 面 列 
出 的 值 中 . 对 m = 4, 在 前 面 段 落 已 给 出 的 zo 的 两 个 复 值 产 生 = 4arg zo = 十 1.48185376(mod 27)， 
并 且 zo 的 实 值 给 出 = 0. 这 些 临界 的 2 曲线 也 出 现在 图 25.1 中 . 
为 了 得 到 好 的 分 辨 率 ， 采 用 步 长 h=1/64 生成 图 像 ， 甚 至 对 相应 于 langle(f)1=pi 的 “分 支 切 
割 ” 也 采用 同样 的 步 长 . 选择 h=1/32 也 可 以 ， 而 h=l/16 也 能 迅速 地 生成 令 人 满意 的 图 形 . 


25.3 ”微分 方程 
对 任意 解析 函数 户 设 
大 二 玫 (2 tu 一 rel9 ， 2 一 2 十 ji， (25.3) 


25.3.1 等 值 线 > = 常数 
为 描述 曲线 = 常数， 自然 取 p 为 独立 变量 . 关于 ” 对 


F(z(p)) = re?， 7 一 季 数 ， (25.4) 
1 这 是 MATLAB 表示 兄 三 1,2,3,4 的 记号 


世间 之 


了 
PDCA 1 = 


图 25.1 前 四 站 指数 和 的 等 值 线 
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求 微分 则 得 到 j 户 (z) 轻 = irele = if(z), 即 














时 =ia(， 其 中 加 一 大全 (25.5) 
用 s 表示 弧 长 ， 则 有 
等 = \/ 下 ?+( 开 2=| 守 | = (oh 
人 dz _ dzdp _i 22 (25.6) 
ds dp ds GT 
写成 微分 方程 组 ， 就 是 
短小 (25.7) 


人 


=- Ref 全， 之 一 I 十 记 . 


如 果 我 们 对 穿 过 实 轴 的 等 值 线 感 兴趣 ， 我 们 必须 为 (25.7) 找 一 个 初始 点 z(0) = zr, y(0) = 0, 取 实 
数 zr 使 得 fcz-) = (假设 对 实数 z，jf(z) 是 实 值 ). 当 F(z) = en(z) 时 ， 如 果 > > 1 这 一 点 容易 
做 到 ， 因 为 en(0) = 1 且 en(z) 对 zz>0 单 调 增 . 所 以 存在 唯一 的 z- > 0 使 得 es(zr) = >. 如 果 
0<7<1, 当 ” 是 奇数 时 ， 这 一 点 仍 可 以 做 到 . 那么 e(z) = en -li(z) > 0, 因为 当 mm 是 偶数 时 ， 已 
知 em 的 所 有 零点 都 是 复数 [3|( 也 可 以 参见 [H). 于 是 当 z 从 -coe 增 到 ce 时 ， en 从 -oo 单调 地 
增 到 co, 且 存 在 唯一 的 z. < 0 使 得 en(z-) =7. 当 m 是 偶数 ， 对 一 切实 的 z 都 有 en(z) > 0, 而 且 
en 三 en-l 仅 在 一 点 zo < 0 为 零 ， en 在 这 一 点 取 最 小 值 (参见 f2]). 由 (25.2) 和 en -li(zo) = 0, 我 
们 得 到 en(zo) = zf8/ml 并 且 得 知 当 且 仅 当 > > z8/ml 时 en(z-) = > 有 一 个 解 rz- < 0. 对 更 小 的 正 
数 >, 则 必须 在 e。 的 某 个 复 零 点 附近 找到 一 个 复 的 初始 点 z(0), y(0) > 0. 

使 F(zo) 三 0 的 zo 点 是 (25.7) 的 一 个 奇异 点 ， 在 这 一 点 两 条 r 线 相 交 成 直角 . 这 要 求 特别 
小 心地 对 (25.7) 在 四 个 方向 上 求 积分 .初始 点 当然 是 zo, 即 zx(0) = Re zo, y(0) = Im zo. 需要 分 析 
(25.7) 的 右边 在 2 的 值 ， 设 从 z) = (z 一 20)d(z)i 则 天 在 zo 附近 是 光滑 的 且 有 Taylor 展 式 


十 去 (Z 呈 20) 有 0 十 
j0 十 到 (2 一 20)f0 ”十 


其 中 瑟 = zao)( 我 们 假设 刀 关 0 且 及 头 0). 设 


户 (z) 一 j(zo) 二 


吉 》 





放 - 一 ei2， -5 < 6< ， 户 (zo)/j(zo)| = ew, 一 下 < ww <T， 
(注意 到 对 每 个 9 存在 9+T 对 应 于 曲线 向 后 的 延续 ), 则 我 们 有 
gz 过 一 2 及 2 ito-eo) 0 











ez ”> 一 zc 


其 中 go 一 limz_，zo . 还 需 确定 00. 
没 着 过 点 2 的 > 曲线 ， 我 们 有 


r2 一 17(aP 一 | 下 十 吉 z 一 ao)2 失 十 
| 由 P 二 Ref(z - zj2 帮 丙 十 OUlz -ao9) 





304 了 克 、CautscRpz ana .7 aladuvoge! 


Re | (人 0 = 0Uz 一 aol)， 


央 为 | 态 上 汉字 2， 所 以 








2 之 一 Z0 时 ， 
Re(e2e 太太 ) = 0. 
Re( 包 万 ) 
2 25.8 
0 各 ( 帮 ) 2 


在 -3 <gb< ix 中 确实 存在 两 个 解 ， 它 们 之 差 为 3r, 从 而 证 实 了 过 zo 点 的 两 条 > 曲线 的 直 
交 性 . 
注意 到 当 j(z) = en(z) 时 ， 有 F 庆 (z) = en-li(z), 因此 zo 是 en-l 的 一 个 零点 . 这 在 $2 的 平面 图 
上 可 以 清楚 地 看 到 . 而 且 ， 如 果 > 2, 那么 矶 =en(zo), li =en -23(zo), 于 是 在 (25.2) 中 令 z = z0， 
再 用 一 1 代 夫 mm，, 得 到 态 = 下 /nl 在 = 一 友 / 人 一 1)5 推导 出 关于 5 的 方程 
Re zo 


tam 200 一 1 (F 一 en). 


25.3.2 ”等 值 线 p = 常数 
对 曲线 = 常数 ， 我 们 取 > 为 自 变 量 ， 对 


flz(r))=re“， 9= 常 数 ， 
关于 > 微分 ， 得 到 


用 s 表示 弧 长 ， 则 


因此 
dz dzdr iojf (zj| 


ds dr (2 





或 者 ， 写 成 微分 方程 组 








dz Je 
ds 站 加 
dy ER 2 过 一 了 十 17. (25.9) 
ds 人 
(25.9) 的 奇异 点 zo 仍 是 态 的 零点 . 在 这 一 点 
人 一- aiw 二 
IE 


确定 了 %. 当 z 一 zo 时 ，i|jP(zjl/P(z) 的 极限 可 以 由 类 似 8$3.1 中 的 过 程 确定 . 但 在 这 里 ， 我 们 直 
接 用 上 在 zo 点 的 Taylor 展 式 ， 以 便 研究 在 廊 (zo) =0 的 点 2 附近 的 ” 曲线 (对 > 曲线 也 一 样 ). 
设 > 一 2 十 6 (为 复 增 量 ， 并 记 上 在 zo 的 导数 为 


及 := jzo)， 有 有 >0， 万 关 0, 户 =0, 户 夭 0. (25.10) 





第 二 十 五 章 解析 枯 数 的 等 值 狂 305 


则 Taylor 级 数 为 


1 (25.11) 
下 一 步 ， 在 (25.3) 中 定义 岂 = je 所 即 令 
jzo 十 4) 三 JUzo)e (25.12) 


我 们 看 到 ， 过 zo 点 的 ”> 曲线 由 对 应 纯 虚 数 苹 = 这 的 5 值 给 出 而 过 zo 点 的 曲线 由 ER 给 
出 2zo 点 本 身 对 应 于 6 = 忆 = 0. 因此 我 们 需 从 方程 (25.12) 中 解 出 6, 其 中 的 F(zo 十 5) 用 (25.11) 
式 代 替 ， 解 这 个 方程 是 MAPLE 的 一 个 特长 . 
在 下 面 程序 ” 中 ,级 数 (25.11) 和 方程 (25.12) 将 分 别 记 为 s 和 eq. 命令 solve 自动 地 将 e* 展 
成 Taylor 级 数 并 借助 于 一 系列 的 递 推 ,， 按 炎 的 适当 守 (这 里 用 半 整 数 守 ) 解 方程 . 正如 所 希望 的 那 
样 ， 对 应 两 个 平方 根 可 能 值 的 两 个 解 被 解 得 . 只 对 第 一 个 解 zet0[i] 进一步 处 理 ， 首 先 定义 在 方 
程 (25.10) 中 的 缩写 fkx 被 取代 ， 然 后 根据 
uv2f2 21 3 
渤 或 ( 产 ) (25.13】 
引入 变量 v. 符号 D(f) 和 (Deek) () 分 别 表 示 的 导数 和 j 的 大 阶 导 数 . 用 函数 map 引入 运算 ， 
即将 函数 的 第 一 个 变量 ， 这 里 是 根 的 简称 ， 作 用 到 由 第 二 个 变量 给 出 的 表达 式 中 的 每 一 项 . 最 后 ， 
用 series 对 OO 项 简化 . 
> NG:= 5: Order := 玲 : 
> 8 := Series(f(z0 + dz) ，dz) : 
> 3S0 := subs(D(f)(z0) = 0，s); 
50 :一 fz0) 十 2 (DG))(AP)(z0) dz 十 (DG))(J)(z0) dz 十 六 (DO)(A)(z0) dz 十 O(dz) 





> eq := 8S0 = ff(z0)*exp(u) : 
> zeto := Solve(eq，qz) ; 
et0 :HzO)V2ww 1(DC)CF)(zO)fzO)u 1 
 V 克 1 3  (D(2))(P)(z0)2 288 
(40(D6G)(CP)(z0FRz0 关 一 24(DO)(CP)(z0)Kz0) (DUO)(J)(z0) 二 72(DG))(F)(z0)3fz0)2) V2 
flz0)V2vVu 1 (DG))(J)(z0)fz0)w 1 

2 [DIDCO + DO 
(40 (DG )(CP)(z0)28z0 关 一 24(D8 )(P)(z0)fz0) (DO )()(z0) 十 72 (DG)(P)(z0)2f(z0)2)V2 
u3/2 / (DG))(F)(z0)2 813/2) + O(u3) 


%%1 := 入 z0) (CD )(P)(z0) 


> zetl := Subs(seq( (Deg@k) (fT) (z0) = 开 .K，k=0..N-1)，Zzet0[1l] ) : 
> Zet2 := map(radsimp，sSubs(u = v”2*+*f2/2/fO，Zzetti)) : 


> Zeta := Series(Zzet2，V)， 
1 请， 工 5 捕 和 负 一 318 如 Ht+9j12 3 4 
4 汪 2 一 万? 77 用 0725 ?7 十 DO 人 ) 


2 作者 感谢 Dominik Gruntz 提供 了 这 个 程序 . 
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MAPLE5 程序 对 任意 N > 3 有 效 ， 产 生 以 上 级 数 的 N -- 2 项 . 但 是 它 运 行 得 相当 慢 ， 因 为 它 没 有 
“智能 如 在 所 得 级 数 的 形式 上 建立 信息 . 但 是 ， 能 够 找到 这 个 级 数 对 一 般 用 途 的 符 呈 处理 器 已 经 
相 兰 不错 了 . 我 们 看 到 5 可 以 被 写作 由 (25.1 3) 定义 的 变量 v 的 形式 车 级 数 . 如 果 原 级 数 (25.11) 
在 zo 点 的 某 个 领域 内 收 信 ， 则 所 得 级 数 在 v = 0 的 某 个 领域 内 收敛 . 
r 曲线 在 zo 点 的 9 方向 由 对 应 于 尽 = 寺 当 上 一 0 时 的 5 给 出 由 上 面 的 级 数 和 方程 (25.13) 
马 二 可 以 推导 出 ， 
bo 三 argv 二 5(arg 加 一 arg 疡 土 了 小 


因此 过 zo 的 两 条 ”> 曲线 垂直 相交 ， 与 方程 (25.8) 完全 一 致 . 
从 另 一 方面 , 过 zo 点 的 p 曲线 的 方向 由 (25.13) 取 疡 的 实数 值 给 出 . 我 们 得 到 两 个 方向 细 士 于 
即 过 zo 点 的 两 条 % 曲线 的 切线 是 ” 曲线 切线 的 角 平 分 线 . 


25.4 一 en 的 等 值 线 7 一 1 


正如 在 83.1 节 指 出 的 那样 ， 我 们 要 解 (25.7), 取 初 值 为 z=y=0. 设 5 是 en 的 1 曲线 与 负 
实 轴 的 交点 .由 对 称 性 ， 仅 需 计 算 每 条 1 曲线 在 上 半 复 平面 的 部 分 . 

我 们 将 讨论 这 个 过 程 的 两 种 方法 : 首先 是 仅 使 用 对 独立 变量 计算 前 的 sy 值 ( 象 在 原来 的 MAT- 
LAB 4 乒 本 中 一 样 ) 进行 数值 积分 的 结果 . 在 这 一 节 的 末尾 ， 我 们 将 提出 一 个 简化 的 算法 ， 利 用 了 
现行 的 MATLAB 5 版 本 的 Events 能 力 . 对 两 种 方法 都 需要 确定 在 1 曲线 上 原点 与 9S" 之 间 弧 长 的 
二 办 5f. 

可 以 按 下 面 的 方法 确定 这 样 的 上 界 sj. 首先 考察 当 m 一 co 时 区 域 les(z)| < 工 与 半径 为 p(m) 
的 半 贺 的 通 近 . 由 渐 近 分 析 得 


pl(m) 一 exp(-1). (十 logvV2rm 十 O(1))， 
移 经 验 选 择 OU1) 为 3; 于 是 得 到 


人 本 ) exp( 一 ]) (n+logV2377 十 3) (25.14) 


为 当 到 过 1 时 到 3。 点 的 弧 长 的 上 界 . 
如 果 不 用 Events 功能 ， 可 先 对 微分 方程 积分 直到 求 得 最 终 值 sf. 然后 ， 仅 需 描 出 满足 y>0 
的 扩 . 对 1 工 曲线 上 最 接近 5 的 两 点 进行 线性 搬 值 可 以 逼近 点 39". 
下 面 的 MATLAB 程序 用 带 有 参数 y > 0 的 find 命令 找到 所 有 满足 条 件 y >0 的 点 集 . 它们 的 
于 标 被 收集 在 向 量 indices 里 . 用 在 线性 插值 中 的 点 的 下 标 便 是 1=length(indices) 和 1L1=1+1. 
最 后 ，w 是 含有 两 个 播 值 权 重 的 标准 化 的 行 向 量 ， 实 际 的 揪 值 由 乘积 wz(1:11,:) 执行 . 
hh Level curves T = 1 for the first 21 exponential sums (Fig. 2) 
>> gLobal DZ 
>> nmain = 1 Dmax = 21;) tol = 3.e-8; 
>> axis equal; hold on;i 4/ arc= []; 
>> options= odeset(:RelLTol: ,tol, :AbsTol，,tol); 
>> forDn = nmin:nnax， 
>> sf = 0.94574* (n +.5*+*Tog(2*piyn) + 3) ; 





第 二 十 五 章 解析 函数 的 等 值 图 307 


% 0.94574=(1+Ppi/2)*exp(-1) 

>> [s ,z] = ode45(，1level4,，，[0 sf]，fto; 0] ，options) ; 
>> indices = find(z(:，2) >= 0) ; 

>> 1 = length(indices); lt = 1】 + 工 ; 

>> w= [-z(11，2)，z(L1，2)]; w = W/sum(w) ; 

>> Z(11,:) = wk#yZ(1L:1t,:); 

>> PlLot(z(1:11，1)，zC1:11，2)7); 

% approximate arclengths and bounds sf 

>> y arc = [arc; wys(1:11)，sf] ; 

>> enqa; 


代 法 25.1 jlevel4.m 
function zdot = level4(s，Z) 
XLEVEL4 generates the right-hand side of 


六 the differential equation for the 1-1lLines of 
儿 f(z) =1+2z+z2/2! + ... + Zn/nl 
Lobal 联 


zc = Z(t) + iyrzZ(2); 芋 =1; fO= 0; 上 = 七 ; 
for X = 1: 也 ， = tkrZCA/KX; fO =f， ff= 节 + 七 end; 
q = f/f0; zdot = [-imag(q); real(q)]/abs(q) ; 


MATLAB 程序 先 定义 参量 amin，nmax 和 误差 范围 tol, 借助 odeset, 它们 被 用 来 定义 积分 器 的 选 
项 结构 ， options. 在 amin < 7 < nmax 的 范围 内 1L 等 值 线 在 由 tol 给 定 的 精确 度 内 绘 出 ， 对 新 
的 amin 和 nmax 的 值 再 运行 这 个 程序 ， 图 形 上 出 现 新 的 曲线 . 由 注释 符号 多 关闭 的 语句 生成 arc 
表 ， 它 包含 实际 弧 长 和 由 (25.14) 算出 的 上 界 sf 

应 用 积分 器 ode45 执行 积分 . 这 个 过 程 输 入 的 参数 是 : 根据 方程 (25.7) 定义 在 算法 25.1 中 的 M 
文件 的 文件 名 level4: (在 引号 中 ), 包含 了 自 变 量 的 初 值 0 和 终 值 sf 的 一 个 向 量 ， 初 值 的 列 向 量 
[0;0] , 和 选项 结构 ， options. 选择 tol=3.0e-8 生成 一 个 高 分 辨 率 的 图 ， 而 侧 省 RelTolL=1.0e-3， 
AbsTol=1.0e-6( 当 参量 options 在 调用 中 被 省 略 时 ) 仍 可 产生 一 个 令 人 满意 的 图 . 由 积分 器 产生 的 
自 变量 和 因 变 量 的 值 被 分 别 储存 在 向 量 s 和 z 中 ， 以 备 绘图 使 用 . 

2 一 1:1:21 的 结果 显示 在 下 面 的 图 25.2 中 . 在 ”稍稍 超过 5 时 ， 虚 轴 附 近 变 换 到 圆 部 分 的 
图 形似 乎 显示 出 周期 性 例如， 对 应 了 = 5,10,15,21 的 曲线 都 表现 出 到 右 半 平面 的 较 大 的 突出 . 

研究 这 个 现象 是 有 趣 的 ， 但 是 超出 了 这 篇 文章 的 范围 . 我 们 仅 指 出 当 m” 一 ce 时 ， 这 个 周期 趋 


2T 


一 exp(= 蕊 

这 个 结果 可 以 这 样 得 到 ， 对 实数 > 考虑 函数 ev(z)( 它 为 不 完全 的 Gamma 函数 ) 并 要 求 1 曲线 包含 
一 个 使 ev(z) = 0 的 鞍点 . 

MATLAB 的 Events 能 够 在 “事件 ”发 生 时 终止 数值 积分 ， 即 ， 一 个 所 谓 “ 事 件 函 数 ” 穿 过 零 


一 5.22329130. 
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图 25.2 前 21 个 指数 和 的 水 平 曲线 7 三 1 


点 . 在 这 里 复 因 变量 的 虚 部 imag(z) 即 为 事件 函数 ， 它 必须 定义 在 函数 1evel 中 (算法 25.2), 函数 
level 也 定义 了 微分 方程 的 右边 zdaot. 这 个 函数 需要 附加 的 输入 参数 flag 和 输出 参数 isterminal， 
以 及 direction, 使 得 如 果 flag 被 遗漏 或 未 定义 ， zadoet 是 微分 方程 右边 的 向 量 . 但 是 ， 如 果 flag 
的 值 为 “events，zdot 问 量 必须 被 定义 为 事件 函数 ， 且 参量 isterminal(zdot 的 有 关 分 量 的 下 标 ) 
和 direction( 零 通道 的 方向 ) 必须 被 适当 地 定义 .因为 MATLAB 5 的 ode45 能 够 求 复 值 因 变量 的 
积分 ， 下 面 的 程序 被 大 大 简化 了 . 

X Level curves T = 1 for the first 21 expbonential sums (Fig， 2) 

using the Events， capability and integratioD of comp1ex 

4 dependent variables 

>> gLobaLl 了 

>> Dmin = 1; Dnax = 21; tol = 1e-6; 

>> axiSs equal; hold on; 4 arc = [U; 

>> options= odeset(，RelTol: ,tol, :AbsTol， ,tot，:Events:，:on)) ; 

>> for 了 = Dmin:nmnax ， 

>> sf = 0.94574*+ (Pn +.5*1og(2+*pixn) + 3) ; 

>> [s ,zj = ode45()1evel:，[O sf] ,0,options) ; 

>> P1Lot(zJ) ; 

>> /4 arclengths and bounds sf 

>> % arc = [arc;i s(length(s))，sf] ; 

>> enda ; 


算法 25.2 level.m 
function [zdot，isterminal，adirectionj = level(s，Z，flag) 


ApLEVEL generates thbhe right-hand side of 
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加 the differential eduation for the 1-1ines of 
久 f(z) =1+Z+z2/2! + ..， + Zn/nl 
ELobal 呈 


if nargin<3 | isempty(flag)， 
七 1; fo= 0;E= 了 七 ; 
for K = 1l1:n, 七 = tyrZ/kX;i fO=f; f= 夺 + 十) end; 
qd = f/f0; zdot = 1i*yq/abs(q) ; 
el Se 
switch(flagl) 
CaSe ”eVents ， 
zdot= jimag(Z) ; 
1sterminalL= 1，; 
directicn= 一 1; 
otherwise 
error([:Unknown flag: :，flagj]); 
end ; 


end 


25.5 了 = en 的 等 值 线 2 = 常数 


下 面 是 一 个 MATrLAB 程序 ， 对 任意 固定 的 m > 0 执行 83.2 的 方法 ， 这 里 微分 方程 (25.9) 必须 

在 天 数 Phase 中 实现 ， 并 存储 在 M 文件 phase.m (算法 25.3) 中 . 

/ Lines of constant Phase for the 10th exponential sum (Fig 3) 

扩 

>> giLobal 也 Phi 

>>DD= 10; tol = 1.e-5; Sf = 工 .5; 

>> clf; axis([-6 6 -1 8]); hola on; 

>> T = Toots(1./gammnaGCn + 1:-1:1)7); 

>> indices = find(imag(r) >= 0)j zero = 工 (indices) 

>> options= odeset()?RelTol，,tol，, :AbsTol: ,tol) ; 

>> for kx = 1: Length(zero)， 


>> zZ0 = Zero(k) ; 

>> for phi = -7/8*pi:pPi/8:pPi， 

>> [s ,z] = ode45()，Phase:，，[0 sf] ，z0，options) ; 
>> Plot(z) ; 

>> end ; 

>> end ; 


程序 先 定 义 n, 误差 范围 tol, 和 期 望 的 从 零点 发 出 的 曲线 段 的 驱 长 sf， 然后 借助 画 数 roots 计 
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算 e 的 零点 的 向 量 r, 其 中 en 的 系数 由 Gamma 函数 生成 . 在 下 一 行 ， 借 助 以 imag(r)>=0 为 参 
数 的 find 命令 形成 上 半 平 面 内 零点 的 子 集 . 程序 中 所 用 的 指令 将 所 有 定义 子 集 的 下 标 存 于 向 量 
indices; 于 是 (indices) 是 在 上 半 平 面 en 的 零点 的 向 量 (为 方便 起 见 将 其 打印 出 ). 


站 法 25.3 Phase.m 


function zdot = phase(s ,Z) 
gLobal D Phi 


eiphi = exp(i*Pphiy); 

t=1; 工 = 七 ; 

for X=1:Dn-l, 七 = tyZ/k; 于 = f+t;i end; 

zdot = elipPhi*rabs(ft) VE; 
在 调用 积分 器 ode45 中 ， 输 入 参数 是 : 定义 在 算法 25.3 中 对 应 方程 (25.9) 的 名 为 ?Phase:'( 在 引号 
中 ) 的 微分 方程 ,一 个 包含 自 变量 的 初 值 0 和 终 值 sf 的 向 量 , 复 初 值 z0, 和 选项 结构 options( 省 缺 


时 为 10-3, 10-5). 由 积分 器 产生 的 自 变量 和 因 变 量 的 值 分 别 存 于 向 量 s 和 z 中 ， 以 备 作 图 使 用 . 
九 一 10 的 结果 描绘 在 图 25.33 中 . 


图 25.3 第 10 个 指数 积 的 等 相位 线 


25.3 并 未 出 现 复 奇 异 点 ， 因 为 所 选 的 2 值 不 对 应 过 复 奇 异 点 的 等 值 线 . 但 是 zo = -3.333551485 
明显 是 一 个 实 奇 异 点 ， 因 为 曲线 p = 0( 靠 近 图 形 的 下 部 ) 突然 出 现 一 个 右 拐 的 角 . 令 人 好 奇 的 是 ， 
积分 器 ode45 如 何 进行 具有 奇异 性 的 积分 ， 它 似乎 做 到 了 这 一 点 . 


“我 们 写 出 并 运行 这 个 程序 是 在 1996 年 8 月 1 日 ， 当 时 正在 为 庆祝 瑞士 国庆 节 放 焰火 . 
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图 26.1 给 出 了 一 个 简化 的 近代 飞机 飞行 的 典型 状况 . 一 架 飞机 处 于 一 个 未 知 的 位 置 并 县 收 到 
了 从 不 同 信号 台 发 来 的 信号 . 这 一 章 的 主要 县 的 是 组 建 一 个 模型 以 获得 的 信息 计算 飞机 的 最 准确 
的 位 置 . 


多 26.1 一 架 飞 机 和 下 个 信和 号 台 的 例子 


VOR1 和、 
x=746G, Y=1393 ) 161.2+0.8 


N V 
Y 
AN 
\ 
\ 
NA 
DME N 
X=155, y=987 到 
人 864.3+2 km 答 
To 、\ 
素 未 知 位 置 
到 \ 
/ 
\ 
45.1z0.6 7/ s 
2 VOR 3 
3 \、x=1571,y=259 
x=629, y=375 \ 


> w\ 
3090x1.31、x 、 
0 1/ 

\ 


必 


ee 


三 个 信号 台 是 VOR 型 的 (Very high frequecy OmniRange).VOR 型 信号 台 允 许飞 机 得 到 从 信 
号 台 到 飞机 的 方位 角 . 换 名 话说 ,9,6s 对 飞机 是 已 知 的 . DME 型 信号 台 (Distance Measuring 
Equipment) 通过 由 乞 发 出 并 被 反射 回来 的 信号 ， 测 量 从 飞机 到 信和 号 台 的 距离 .在 本 例 中 ， 距 离 是 
864.3 士 2km、 

每 一 个 测量 值 及 其 误差 被 给 出 了 . 测量 值 的 标准 表示 是 m 士 n. 这 意味 着 被 测量 的 真 值 在 mm+m 
和 各 - 于 之 间 . 不 同 的 学 科 对 于 术语 “在 … :之 间 ” 有 不 同 的 解释 . 它 可 能 是 一 个 绝对 的 陈述 ， 即 ， 
真 值 总 是 在 两 个 界限 之 间 ， 或 者 是 一 个 统计 学 的 陈述 ， 即 ， 真 值 以 z 多 的 概率 在 两 个 界限 之 间 . 通 
党 我 们 假设 误差 服从 正 态 分 布 ， 其 均值 是 mm, 标准 差 为 m%. 对 于 我 们 的 分 析 ， 使 用 哪 一 个 误差 的 定 





第 二 十 六 章 非 线 性 最 小 二 乘法 ， 飞 机 的 最 准确 的 定位 313 


义 是 无 所 谓 的 ， 但 规定 所 有 的 测量 值 都 使 用 同一 个 定义 . 

我 们 将 简化 所 讨论 的 问题 ， 只 考虑 二 维 的 情况 . 我 们 将 不 考虑 高 度 ， 高 度 的 数据 可 以 由 另外 
的 仪器 得 到 ， 并 且 它 将 使 我 们 的 例子 更 加 复杂 ， 这 是 不 必要 的 . 

我 们 用 z 和 y 表示 飞机 的 未 知 坐 标 . 容易 看 出 ， 任 何 一 对 VOR/DME 的 读数 都 将 给 出 我 们 计 
算 z 和 2% 的 足够 信息 . 对 于 四 组 数据 来 说 ， 这 个 问题 是 超 定 的 . 因为 测量 值 不 是 精确 的 ， 我 们 布 
望 使 用 所 有 有 用 的 信息 来 计算 > 和 以 得 到 更 准确 的 结果 . 

输入 数据 列 在 如 下 的 表 中 . 


o1 一 161.2 
02 一 45.10 


os 一 309.0 





这 一 章 的 结构 如 下 . 第 一 部 分 将 分 析 如 何 提出 问题 . 第 二 节 将 进行 必要 的 计算 来 求 得 最 优 的 解 . 
最 后 一 节 将 分 析 结 果 的 信和 度 . 


26.2 组建 最 小 二 乘 方程 


在 误差 服从 正 态 分 布 的 假设 下 ， 使 用 极 小 化 误差 平方 和 的 方法 来 求解 > 和 y 的 定位 问题 是 完 
全 合适 的 ， 另 一 方面 ， 如 果 我 们 不 知道 任何 关于 误差 单个 分 布 的 信息 ， 极 小 化 误差 平方 和 仍然 是 
一 个 不 错 的 稳定 方法 . 所 以 无 需 进 一 步 的 讨论 ， 我 们 将 把 这 个 问题 定 为 一 个 最 小 二 乘 问题 . 

对 于 VOR 信号 台 (12 或 3), 所 满足 的 方程 是 


~ 了 一 2i 
tangi 祝 一 -一 
2 一 芒 


其 中 砚 = 2rb;/360, 同时 对 于 DME( 位 于 z4, ya), 方程 是 
VzT 一 Z4)2 十 (一 加)2 祝 da. 


(在 航空 领域 ， 角 度 的 标准 测量 是 从 正 北 开始 沿 顺 时 针 方向 ， 以 度 为 单位 . 这 与 三 角 学 的 测量 是 不 
同 的 ,在 三 角 学 上 ， 是 从 东方 开始 沿 反 时 针 方 向 ， 以 弧度 为 单位 . 因此 必须 注意 从 度 到 弧度 的 转换 
和 选择 正确 的 象限 . ) 


误差 是 每 个 方程 左 侧 和 右 侧 之 差 . 虽然 这 对 精确 确定 的 系统 是 正确 的 ， 对 于 超 定 系统 来 说 ， 
它 是 不 适当 的 . 


我 们 容易 看 出 ， 在 我 们 如 何 表示 这 个 误差 上 ， 这 里 有 含混 不 清 之 处 .例如 





tan b， 一 c (26.1) 

yy 一 大 

人 (26.2) 
yy 一 上 


ta 


(y 一 Wi tan 0; 一 (ez 





二 汉 C，Compmnet 
都 是 对 于 VOR 信和 号 站 的 误差 的 可 能 表达 式 . 对 于 DME 方程 也 出 现 同 样 的 含混 之 处 : 
ML( 瑟 一 2 十 (一 六 二 


【一 7T4 六 十 (一 2) 一 大. 


我 们 该 使 用 哪 一 个 呢 ? 在 回答 这 个 问题 之 前 ， 我 们 要 注意 一 个 重要 的 技术 问题 . 虽然 方程 (26.1) 
总 是 正确 的 ， 方 程 (26.2) 可 能 不 正确 . 问题 发 生 在 tan-: 将 返回 一 个 主 值 ， 这 个 值 在 -r/2 和 /2 
之 间 . 这 就 带 来 两 个 问题 ， 第 一 个 问题 容易 解决 ， 第 二 个 则 需要 更 加 巧妙 的 处 理 方法 . 第 一 个 问题 
是 转换 航空 角 ， 它 在 正规 化 后 从 0 到 2r 的 范围 内 转变 为 ~r 到 关 . 这 可 以 通过 将 超过 r 的 角 减 去 

一 个 2r 来 实现 ， 第 二 个 问题 是 tan- 将 返回 -r/2 和 /2 之 间 的 数值 . 这 意味 着 相反 的 方向 ， 例 
如 135” 和 315" 是 不 能 区 别 的 . 这 可 能 产生 不 能 被 满足 的 方程 或 者 如 果 角 度 被 化 简 到 tan-: 的 范 
围 ， 则 多 重 的 ， 错 误 的 解 都 可 能 产生 . 为 纠正 这 个 问题 我 们 需要 分 析 z-z 和 ?2 一 上 的 符号 ， 有 时 
称 之 为 象限 分 析 . 这 是 一 个 非常 知名 和 共同 的 问题 ， MAPLE 中 的 两 个 变量 的 arctan 函数 (在 其 它 
的 语言 中 为 atan2) 可 以 做 象限 分 析 ， 同 时 返回 一 个 解决 相反 方向 问题 的 -r 和 T 关 之 间 的 数值 方 
程 (26.2) 可 以 写成 


arctan(z 一 2i)2 一 伏 ) 一 06;. 


为 计算 误差 我 们 需要 选择 更 适当 的 公式 ， 除 非 还 知道 关于 测量 仪器 的 其 它 知识 ， 所 使 用 的 最 好 和 
最 安全 的 方程 是 把 误差 表示 为 与 测量 值 相同 单位 的 方程 . 例如 ，VOR 测量 了 角度 ， 因 此 对 应 的 误 
差 应 该 也 是 角度 


ei 一 arctan(z 一 Zi 一 伏 ) 一 0,. 
DME 测量 了 距离 ， 因 此 这 个 测量 值 的 误差 将 是 公里 (或 是 其 它 距 离 单位 ) 
cd 一 V(z 一 7z4) 十 人 一 友 关 一 


在 计算 误差 平方 各 之前， 我 们 需要 统一 所 有 的 测量 值 ， 使 它们 具有 相同 的 尺度 . 这 很 容易 由 ei 除 
以 标准 差 ( 即 ， 表 示 测 量 误差 的 那个 数值 ) 得 到 . 

一 般 来 说 , 对 于 一 个 测量 值 > = 闷 士 w, 其 中 z 满足 一 个 方程 生 (z,aD.) 三 0 令 z= 上 ab ) 
是 下 关于 它 的 第 一 个 变量 的 反 函 数 ， 则 

二 7 一 上 ab...) 
9 

是 误差 的 一 个 标准 化 的 度量 . 对 于 服从 正 态 分 布 的 无 偏 误 差 ， 6 服从 N(0,1), 即 平均 值 为 0 且 方 
差 为 1 的 正 态 分 布 . 极 小 化 变量 的 平方 和 ， 即 >, 5: , 与 每 一 个 误差 服从 相同 的 分 布 . 

在 我 们 的 例子 中 所 要 极 小 化 的 平方 和 是 


(7: 
4 一 1】 E 


相当 明显 ， 这 个 问题 关于 未 知 变量 > 和 y 是 非 线 性 的 . 也 没有 其 它 的 误差 表达 式 能 够 得 出 线性 问 
题 . 
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26.3 求解 非 线性 系统 


我 们 将 使 用 MAPLE 来 求解 这 个 问题 ， 后 面 除 了 数值 计算 之 外 还 需要 进行 一 些 符号 演算 . 首先 
我 们 定义 输入 数据 . 我们 用 网 量 X 和 Y 存储 信号 站 的 坐标 ， 用 x 和 y 表示 飞机 的 未 知 坐 标 . 


theta := array( [ 161.2，45.10，309.0 ] ); 
sigma := array([ 0.8，0.6，1.3，2.0 ] ); 
X := array( [ 746，629，1571，155 ] ) ; 

Y := arTray( [ 1393，375，259，987 ] ) ; 

dq4 := 864.3; 


MMSVYMVY YYV 


9 := [161.2, 45.10, 309.0] 
o := [.8, .6, 1.3, 2.0] 
X := [746, 629, 1571，155] 
Y := [1393, 375, 259, 987] 
dy :一 864.3 


如 前 所 述 ， 角 度 和 角度 的 标准 差 需要 转换 为 弧度 . 


> for 1 to 3 do 

> theta[i]j := evalf( 2*Pirthetafi] / 360 ) ; 
> if theta[i] > evalf(Pi) then 

坟 theta[i] := theta[i] - evalf(2*Pi) fi; 
> sigma[Lij := evalf( 2*y*Pi*rsigma[i] / 360 ) ; 
> 0d: 

> 地:= ?7: 

> Print( theta ); Print( sigma ) ; 


[2.813470755，.7871434929, 一 .890117918] 
[.01396263402, .01047197552, .02268928028,， 2.0] 


现在 我 们 可 以 构成 平方 和 . 
> SS := Sum( ( (arctan( X-X[i]，y-Y[i] ) -~ theta[i] ) / 
> Sigma[i] ) > 2， = 1..3 ) + 
> (〈《 (xz-XfL4])” 2 + (yY-Y[4])"2 ) ” (1X2) - da4a ) / 
> Sigma[4] ) ” 2; 


9 := 5129.384919 (arctan(z 一 746, y 一 1393) 一 2.813470755)” 
十 9118.906513 (arctan(z -- 629, y 一 375) 一 .7871434929)” 
十 1942.488964 (arctan(z -- 1571, y 一 259) 十 .890117918)” 


十 .2500000000(V(z 一 155)2 十 (y 一 987)2 一 864.3)? 
下 面 我 们 令 导 数 等 于 零 并 求解 . 
> sol := fsolve( { diff(S,x)=0，diff(S,y)=0 }，{x,y} ); 
sol := {z = 978.3070298, y = 723.9837773} 
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解 被 求 出 来 了 ， 而 且 它 的 确 在 我 们 所 期 望 的 范围 内 . 
这 一 次 近似 是 成 功 还 是 失败 要 确定 最 小 二 乘 近 似 的 剩余 量 . 在 误差 为 正 态 分 布 的 假设 下 ， 它 
将 是 四 个 NW(0,1) 变量 的 平方 和 . 这样 的 平方 和 的 期 望 值 是 4 
> SO := evalf( subs( sol，S ))， 
90 := .6684712637 


这 个 数值 小 于 4, 因此 它 表 明 或 者 是 我 们 的 运气 很 好 ， 或 者 我 们 把 误差 估计 太 高 了 . 无 论 如 何 ， 对 
于 近似 的 效果 来 说 这 是 一 个 好 消息 . 它 与 下 一 节 所 做 的 特征 值 分 析 一 起 说 明 :我们 得 到 了 正确 的 
结果 . 


26.4 信和 度 / 灵敏 度 分 析 


我 们 用 研究 解 的 灵敏 度 的 程序 ， 把 误差 平方 和 在 它 的 最 小 点 展开 成 Taylor 级 数 . 令 5(z,y) = 
S(D) 是 平方 和 ， 我 们 将 把 它 定 义 为 位 置 向 量 忆 = [z, 吉 - 的 函数 令 而 = |978.30...,723.98...】 是 
最 小 二 乘 问 题 的 解 . 则 在 现 附近 Taylor 级 数 的 前 三 项 是 


3( 下 =9( 丙 ) 十 So)(G 一 而 ) + (人 一 而 ) 3 可) 人 一 )+O( 人 一 而 门 ). 
因为 $ 的 梯度 S (站 = [S2, 5 在 最 小 点 是 零 (数值 验证 显示 这 个 梯度 在 {0,0] 的 舍 入 误差 之 内 )， 


> Sl := evalf( subs( sol，1Linalg[Lgrad]j( S，[x,yj ))); 
91 := [.3610- .410-?] 


略 去 高 阶 项 的 表达 式 是 
S( 同 = 5S(Do) 十 (三 一 而 ) 3 (5)(G 一 古 ). 
在 MAPLE 中 依据 未 知 的 zx 和 3 来 计算 3 的 近似 值 ， 首 先 要 计算 Hessian 矩阵 (3 的 二 阶 导数 托 
阵 ), 在 最 小 点 估计 它 的 值 ， 然 后 计算 二 次 型 . 
> S2 := evalf( subs( sol，1Linalg[hessian](S，[Lx,y] ) )); 


>  PmpPO := [ x-subs(sol,x) ，Yy-stubs(sol,y) ] ; 
> Sapprox := SO + evalm( transpose(pPmp0) &+k S2 &*y pmPO ) ; 
.5118424680 ”一 .1726069278 
信人 
一 .1726069278 .09026159226 


prmp0 := [z - 978.3070298, y -- 723.9837773] 


9approz := 一 .6684712637 
十 (.5118424680z -- 375.7744690 -- .1726069278y) (z 一 978.3070298 ) 
十 (一 .1726069278z 十 103.5146424 十 .090261592262) (y -723.9837773) 


此 后 我 们 将 在 测量 误差 符合 正 态 分 布 的 假设 下 工作 . 作为 来 自 于 四 个 N(0, 了 ID 变量 的 平方 和 ，23 将 
服从 自由 度 为 4 的 X” 分 布 . 知道 这 个 分 布 ， 就 允许 我 们 确定 8( 凡 的 置信 区 间 . 假设 我 们 对 95 匈 
的 置信 区 间 有 兴趣 ， 则 有 S(Z < 9.4877..… 这 个 数值 是 由 X2 分 布 表 中 查 出 的 ， 
> stats[L statevalf，icdf，chisquare[4] ] (0.95 ); 
9.487729037 
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不 等 式 S( 站 < 9.4877... 定义 了 一 个 椭圆， z 和 y 的 真 值 以 95 多 的 概率 落 在 椭圆 内 .对 于 50 邵 ， 
95%, 99.9 驳 三 个 不 同 的 置信 区 间 我 们 可 以 画 出 三 个 椭圆 ， 它 们 都 是 统计 计算 的 参考 值 . 要 说 明 的 
是 置信 度 越 大 ， 椭 圆 就 越 大 ( 见 图 26.2). 

栖 圆 的 主轴 是 不 确定 性 最 大 的 方向 ， 次 轴 是 不 确定 性 最 小 的 方向 ， 这 两 个 轴 的 准确 的 方向 由 
3” 的 特征 值 / 特征 向 量 分 解 给 出 . 


> ev := Linalg[eigenvectsj( S2 ) ; 


eu := [.5734960798, 1, {[ 一 .9417276012，.33637646371}]， 
[.0286079803, 1, {[ 一 .3363764637, 一 .9417276012]]] 


最 大 特征 向 量 ，0.5734.… 给 出 了 S( 肋 的 最 陡 上 升 方向 , 或 者 是 最 大 信 度 的 方向 , 本 例 中 为 [一 0.941.… 
0.336..]. 最 小 的 特征 向 量 ， 0.0286… 给 出 了 最 小 信 度 的 方向 ， 显 然 它 垂直 于 前 者 ， 对 于 这 个 特定 
的 例子 ， 我 们 看 到 DME 与 VOR2 一 起 提供 了 大 部 分 信息 (DME 信号 台 有 最 小 的 相对 误差 ), 以 及 
由 此 得 到 的 枯 贺 的 形状 和 方向 . 


26.2 概率 为 50%,95 双 和 99.9 叹 的 期 望 位 置 的 椭 贺 


750 


740 


710 





700 950 


ellips := { seq( stats[ statevalf，icdf，chisquare[4]](c) = 
Sapprox，c = [0.5，0.95，0.999] ) 上: 

PlLots[implicitPlot]j( ellips，Xx = 950..1000，y = 700. .750， 
grid=[50 ,50] ，view=[950..1000，700. .750] ); 


计算 特征 值 有 另外 一 个 优点 . 当 我 们 求解 值 导数 等 于 零 的 方程 时 ， 我 们 可 能 求 出 最 小 值 、 最 大 值 
或 者 鞍点 . 检验 我 们 所 得 到 的 是 最 小 值 的 正确 方法 是 验证 Hessian 矩阵 是 正定 的 . 特征 值 的 检查 给 
我 们 提供 了 更 多 的 信息 . 如 果 所 有 的 特征 值 是 正 的 ， 则 我 们 得 到 一 个 最 小 值 ， 如 果 都 是 负 的 ， 则 我 
们 得 到 一 个 最 大 值 ， 如 果 有 正 有 负 ， 则 我 们 得 到 一 个 鞍点 . 因为 在 我 们 的 例子 中 ， 两 个 特征 值 都 是 
正 的 ， 我 们 敢 肯 定 我 们 求 出 的 是 最 小 值 . 

本 章 所 描述 的 过 程 可 以 被 推广 到 任意 维 数 (未 知 参 数 ). 


M VSVY V 
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在 记 教 莹 和 一 些 老 房 子 的 正面 常常 能 看 到 年 代 久 远 的 日 时 (sundial). 一 些 极 好 的 例子 可 以 在 
文献 [3,4] 中 找到 这些 日 匡 在 默默 地 也 是 不 引 人 注 意 地 向 人 们 诉说 着 那 已 往 的 岁月 ， 当 时 人 们 正 
是 用 这 些 日 医 测 量 时 间 . 直到 19 世纪 末 ， 甚 至 钟表 也 是 靠 太 阳 来 调整 的 . 今天， 日 旷 重 新 出 现在 
公园 里 和 房子 的 正面 主要 是 为 了 装饰 ， 一 般 来 说 这 些 日 茵 并 不 十 分 精确 .时 不 时 人 们 会 看 一 下 表 
来 确定 是 否 有 比较 大 的 误差 . 另 一 方面 ， 也 有 些 日 茵 的 精度 令 人 吃惊 . 

有 许多 类 型 的 日 旷 . 实际 上 , 任何 物体 的 投影 都 可 以 用 作 昌 医 . 本 章 的 目的 是 介绍 设计 精确 平 
面 日 靶 所 需要 的 数学 知识 . 这 些 日 攻 是 这 样 的 ， 指 示 物 顶端 的 影子 投射 在 平面 上 ， 平 面 刻 有 时 间 标 
度 (刻度 盘 ) 以 指示 时 间 . 这 个 指示 物 称 之 为 日 冉 指 针 (gnomon). 这 种 日 里 不 仅 能 指示 地 方 真 太阳 
时 (local real time), 也 能 指示 我 们 日 常生 活用 的 平 太阳 时 (mean time), 甚至 还 能 显示 其 它 时 间 . 

村 注 意 的 是 ， 为 了 精确 ， 日 喀 必 须 为 每 个 使 用 地 点 专门 设计 ， 还 必须 指向 正确 的 方向 ， 读 者 用 
MATLAB 的 算法 可 以 做 一 个 自己 的 日 蜂 . 

本 章 的 基础 是 文献 出 , 它 的 大 致 内 容 在 后 面 介 绍 . 首先 介绍 必要 的 天 文 基础 知识 并 定义 后 面 
将 用 到 的 坐标 系 ， 日 里 指 针 的 投影 问题 是 理解 以 后 计算 的 基础 . 在 27.3 节 介 绍 了 水 平日 规 的 各 种 
时 间 刻 度 . 在 27.4 节 取 消 了 仅 讨 论 水 平日 旷 的 限制 . 本 章 有 一 个 实际 的 例子 . 在 本 章 结束 ， 我 们 
介绍 了 有 关 的 文章 [2]. 


27.2 天 文 基础 知识 


我 们 都 知道 一 些 天 文 基础 知识 ， 这 是 设计 日 里 所 必需 的 . 地 球 绕 太阳 一 年 一 转 的 椭圆 轨道 运 
动 是 满足 Kepler 定律 的 .在 轨道 上 ， 地 球 绕 自身 的 轴 稳定 地 旋转 (自转 ), 轴 与 绕 太 阳 的 轨道 平面 
倾斜 . 这 个 轨道 平面 叫 黄道 (ecliptic). 白天 与 黑夜 的 变化 是 由 于 自转 ， 而 公转 则 带 来 季节 的 变化 . 
白天 的 突出 现象 是 日 出 与 量 落 ， 还 有 就 是 日 中 天 ， 也 就 是 太阳 处 在 它 的 最 高 位 置 的 时 候 (正午 )， 

太阳 位 于 地 球 椭 园 轨道 的 一 个 焦点 上 ， 见 图 27.1. 当地 球 远离 太阳 时 ， 它 的 速度 逐渐 变 慢 ， 直 
到 它 达 到 远 日 点 (aphelion). 在 该 点 ， 地 球 的 运动 最 慢 ， 这 时 地 球 位 于 夏至 点 .太阳 的 引力 开始 把 
地 球 拉 向 太阳 并 增加 它 的 速度 . 太阳 不 断 地 给 地 球 加 速 ， 直 到 地 球 达到 轨道 上 相反 的 顶点 ， 近 日 
点 (perihelion), 在 春分 点 (spring equinox), 白天 与 黑夜 的 长 度 相等 . 

我 们 需要 的 一 个 天 文 常 数 是 地 球 椭 园 轨道 离心 率 的 数值 . 这 个 值 是 e = 0.01672. 我 们 还 需要 
黄道 与 赤道 平面 的 夹 角 e = 23.44", 最 后 一 个 值 是 近日 点 的 黄 经 (ecliptic longitude)j Zo = 一 77.119， 
它 是 从 春分 点 逆 时 针 开 始 计算 . 实际 上 这 些 常数 并 不 十 分 精确 . 例如 ， 近 日 点 大 约 21,000 年 绕 太 
阳 旋 转 一 周 ， 在 以 下 的 计算 中 将 忽略 这 些 . 


27.2.1 坐标 系 
天 文学 家 使 用 着 不 同 的 坐标 系 . 它们 都 有 一 组 正 交 向 量 基 (xo,you,za). 如 果 s 是 一 个 空间 的 向 
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图 27.1 地 球 李 圆 轨 道 





量 ， sa 代表 它 在 基 (xa,yo,za) 下 的 向 量 表示 . 

地 平 坐 标 系 (horizontal coordinate system) 如 图 27.2 所 示 . 观测 者 位 于 地 平面 的 原点 . 观测 
者 垂直 上 方 的 点 叫 天 项 (zenith), 在 球体 相反 的 对 应 点 叫 天 底 (nadir). 仰角 刀 是 恒星 与 地 平面 的 来 
角 .， 负 值 表示 位 于 地 平面 以 下 . 方位 角 a 是 南极 点 3 与 天 顶 的 大 园 和 经 过 恒星 与 天 顶 的 垂直 园 之 
回 的 夹 角 . 


图 27.2 地 平 系 图 27.3 赤道 系 










aa 
SET<YS 





地 平 坐标 系 的 缺点 是 它 要 以 天 项 为 参考 点 ， 而 这 点 在 宇宙 中 并 不 国定 . 对 天 文 观测 者 而 言 ， 更 常 
用 的 是 局 部 赤道 坐标 系 (local equatorial system), 它 是 用 北极 和 当地 赤道 为 参考 ， 见 图 27.3. 恒星 
的 时 角 7 是 顺 着 每 日 运 动 的 方向 沿 赤道 测量 子午 线 与 恒星 的 夹 角 . (子午线 是 通过 南极 和 北极 的 
大 园 ). 恒星 的 赤 纬 (declination) 6 是 它 到 赤道 的 角 距 . 恒星 位 于 赤道 以 北 为 正 ， 反 之 为 负 ， 常用 赤 
经 (right ascension) a 取代 时 角 r, 它 是 从 春分 点 开始 沿 赤 道 向 正方 向 测量 . 

还 有 两 个 天 体 坐 标 系 常用 来 描述 地 球 绕 太阳 的 年 运动 ， 两 个 坐标 系 都 是 地 心 系 ， 它 忽略 了 地 
球 的 目 转 而 专注 于 太阳 相对 于 地 球 的 位 置 . 与 上 面 的 坐标 系 不 同 ， 它 们 与 地 球 的 特定 位 置 无 关 . 

春分 与 秋分 点 是 黄道 与 天 体 赤 道 的 交点 . 春分 点 在 图 27.4 上 用 7 表示 . 一 方面 ， 我 们 有 了 天 
赤道 坐标 系 (system of the celestial equator), 它 用 两 个 角 6 和 a 表示 太阳 的 位 置 . 从 天 赤道 到 太阳 
的 角 距 是 赤 纬 46. 春分 点 与 地 球 自 转轴 组 成 的 平面 和 太阳 与 地 球 自转 轴 组 成 的 平面 之 间 的 夹 角 是 赤 
经 a. 而 在 黄道 坐标 系 中 ， 太 阳 的 位 置 是 由 它 在 黄道 上 从 春分 点 开始 计算 的 角度 来 表示 . 这 个 角 叫 
黄 经 卫 . 一 个 任意 点 尸 还 可 以 进一步 用 黄 纬 (ecliptic jatitude) 恕 来 表示 ( 往 北 极 的 方向 为 正 ). 
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图 27.4 天 球 坐 标 系 





27.2.2 日 器 指针 的 投影 


考虑 日 荞 指 针 的 顶端 投影 在 水 平面 上 ， 见 图 27.5. 在 以 下 的 坐标 系 中 ， 向 量 s 表示 日 蜂 指 针 项 
端 影子 的 投影 方向 ， 从 日 层 指 针 的 顶端 G 向 平面 作 垂 线 ， 垂 足 下 为 坐标 系 的 原点 .xd 轴 回 北 ， 
ya 轴 准 东 ， za 轴 在 垂 线 方 向 ， 在 这 个 坐标 系 中 ， 向 量 s 表示 为 


图 27.5 表盘 坐标 系 





cos (六 ) cos (a) 
sd 一 | cos(P)sinfa) |， 
sin ( 疡 ) 


这 里 a 是 方位 角 ， 天 是 纬度 接 下 来 ， 日 峰 指 针 项 端的 影子 G' 在 平面 上 的 坐标 是 


其 中 ，9 是 日 甘 指 针 的 高 度 ， 即 距离 G 太 . 
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使 用 27.2.1 节 的 地 平 坐 标 系 ， 向 量 s 可 以 表示 成 
cos ( 户 ) cos (a) 


sh 一 | cos(hp)sin(a)j) | = 一 sd. 


sin ( 卢 ) 


现在 要 讨论 的 问题 是 ， 已 知 太阳 在 赤道 坐标 系 中 的 位 置 ， 如 何 决定 日 时 指针 项 端的 影子 在 日 规 盘 
面 上 的 位 置 . 太阳 的 位 置 v 依赖 赤 纬 6 和 时 角 上 二 写成 


cos (0) cos (1t) 
va 一 | cos(O)sin (t) 
sin (9) 


把 赤道 坐标 变换 成 地 平 坐标 要 进行 一 次 平面 转动 ， 见 图 27.3. 我 们 得 到 


cos (W) 0 一 sin(w) 
Vnm 一 0U 工 0 1 vv， 
sin (w) 0 cos( 九 ) 


这 里 由 = 90" -%9 是 观测 者 所 处 的 纬度 因而， 给 定 太 阳 的 时 角 上 和 赤 纬 6, 当地 的 纬度 上 和 明 
旷 指 针 的 长 度 9, 就 可 以 用 MATLAB 给 出 的 算法 27.1 来 计算 影子 . 


工法 27.1 闷 数 Project 
function project(t,d,Pphiyg,cmdy) 


X = [coskd) .kxcos (七 ) ; % ays in eqtuatorial SYSs . 
cos(d) .ksin( 蕊 ) ; 
sin(d) .*ones(size(t))] ; 
ww = Pi/2 -~ Phi; 
R = [cosGVwW) 0 -sin(CwW) ; 
O 1 DO; 
sinCw) 0 cos (WwW) ] ; 
又 = R* 又 ; % equatorial ~> horizontal 
ix = (X(3,:) > 0); %h only Tays from above 
if any(ixy) ， 


X = g*X(1:2,ix)./(ones(2,1)*X(3，,ix)) ; 
办 Shadow Points 
plot(X(2，:) ,XCL,:) ,cmd) ; 


enaQ 


顶点 的 影子 G' 的 计算 表示 了 上 半球 在 平面 上 的 逐 点 投影 . 这 个 图 叫 日 旷 指 针 投 影 . 大 园 成 了 一 条 
直线 ， 而 另外 的 园 则 成 了 园 锥 型 的 曲线 . 尤其 特别 的 是 ， 赤 道 也 画 成 了 一 条 直线 . 赤 纬 不 为 零 时 ， 
太阳 每 日 的 拱 线 均 成 了 圆锥 曲线 ， 称 之 为 赤 纬 线 (太阳 的 赤 纬 沿 着 给 定 的 每 日 拱 线 实 际 是 一 个 常 
数 ). 网 锥 曲线 的 类 型 取决 于 纬度 和 和 赤 纬 4. 





322 LOettli arid 万 .9Scpztt 


27.3 时 间 标 度 


前 一 节 的 基础 知识 使 我 们 在 知道 赤 纬 4 和 时 角 上 后 ， 能 确定 日 旷 指 针 顶 端 在 水 平面 的 影子 . 
现在 来 讲 各 种 有 趣 的 时 间 标 度 . 从 午夜 开始 ， 时 间 分 为 24 小 时 . 注意 有 一 些 老 的 日 呈 可 能 从 日 中 
天 的 时 候 即 正午 开始 计算 . 


27.3.14 地方 真 太阳 时 


直接 由 太阳 的 运动 来 决定 的 时 间 叫 地 方 真 太阳 时 或 叫 地 方 视 时 . 当 太 阳 在 白天 的 最 高 点 时 ， 
这 就 是 当地 时 间 的 正午 、 如 果 两 个 地 方 不 在 同一 个 子午 线 上 ， 它 们 的 地 方 时 是 不 同 的 .因而 这 个 
时 间 定 位 在 一 个 特定 的 子午 线 上 ， 此 外 ， 一 年 之 中 地 方 时 各 个 小 时 的 长 度 是 不 同 的 . 由 于 地 球 绕 
太阴 的 椭 园 轨道 和 地 球 自转 轴 对 黄道 面 的 倾斜 ， 我 们 看 到 的 太阳 在 天 空中 的 运动 在 一 年 之 中 也 是 
不 相同 的 .日 时 所 显示 地 方 真 太阳 时 与 钟表 的 时 间 相 比 可 能 快慢 16 分 钟 ， 见 27.3.2 节 . 

对 地 方 真 太 阳 时 来 说 ， 小 时 线 是 一 个 特殊 的 例子 ， 时 角 怒 与 赤 续 无关， 表示 为 


tr 一 155(K 一 12). 


小 时 线 是 大 园 的 日 匡 指 针 投影 ， 因 此 在 图 27.6 所 示 的 表盘 中 ， 它 被 画 成 一 条 直线 . 此外， 图 27.6 
的 表盘 画 了 七 条 赤 纬 线 ， 它 的 刻度 表示 黄道 十 二 富 (zodiac) 的 一 个 新 宫 的 开始 . 按照 一 个 古老 的 
巴 比 仑 传统 ， 黄 道 被 划分 为 十 二 个 相等 的 区 间 ， 每 个 区 则 为 30" 表 27.1 给 出 了 十 二 富 开始 的 赤 续 
5 和 黄 经 工 . 这 些 值 很 容易 从 黄道 坐标 系 和 天 体 赤道 坐标 系 的 关系 导出 ， 见 27.2.1 节 . 


表 27.1 黄道 十 二 宫 












Libra 0.0” 
210”  Scorpio 一 11.47” 
240?” Sagittarius ”一 20.15? 
270” Capricorn ”一 23.44? 
300” Aquarius 一 20.15” 
330” “Pisces 一 11.47” 


Aries 0.0” 
30” Taurus 11.47” 
60” Gemini 20.15” 
90” Cancer 23.44-” 

120” ELeo 20.15?” 

150” Virgo 11.47” 








下 面 摘录 的 程序 使 用 MATLAB 程序 Project, 在 给 定 纬度 4 后， 画 出 地 方 真 太阳 时 的 刻度 盘 . 
>> gE = 1; eps = 23.44; P = Pi/180; 
>> cls; axis([-5 5 -2 5]); hold on; 
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>> Phi = 47*P; Ah atitude 

>> KKX= [L7:17]，; 

>> 七 = 15*+p*(k-12) ; 

>> d = pr[23.44 20.15 11.47 0 -11.47 -20.15 -23.44] ; 
>> for ji=1:Jength(d) ， % declination 1ines 
>> “ Project(t,d(i) ,Phi,g,，-:); 

>> end 

>> d = eps*+p*#[-1 1]; 

>> for X=8:16， hh hour 1ines 

>> 二 = 15*pk#k(K-12) ; 

>> “ project(t,d,phi, 区 ->); 

>> enda 


27.3.2 平 太 阳 时 


日 常生 活 中 使 用 的 是 平 太 阳 时 . 不 论 什么 季节 ,所 有 的 小 时 都 有 相同 的 长 度 . 平 太 阳 时 使 时 钟 
的 划分 成 比例 . 地方 平 太 阳 时 定义 为 假想 的 太阳 以 不 变 的 速度 在 绕 天 体 亦 道 而 不 是 纪 黄 道 前 进 ， 
这 个 速度 是 真实 太阳 在 黄道 上 运动 的 平均 速度 . 假想 的 太阳 与 真实 太阳 在 同一 时 刻 离 开春 分 点 让， 
在 一 个 回归 年 后 又 同时 回 到 这 点 ， 

为 了 在 日 号 上 引入 平 太 阳 时 ， 必 须 对 地 方 真 太阳 时 作 个 修正 ， 这 个 修正 定义 为 真 太阳 时 与 平 
太阳 时 之 差 ， 叫 做 时 间 方 程 . 在 设计 平 太 阳 时 的 时 间 线 之 前 ， 在 下 两 节 先 引入 时 间 方 程 . 


了 Kepler 方程 


行星 运动 的 攻 epler 定律 是 引入 平 太 阳 时 的 基础 . 按照 第 一 个 定律 ， 地 球 轨道 是 以 太阳 为 一 个 
焦点 的 椭 园 ， 见 图 27.7. 


图 27.7 行星 椭圆 轨道 





轨道 上 书 点 的 坐标 是 
X 一 (acos (五 ),Dsin (五 ))， 


a 和 分 别 是 椭 园 的 长 半 轴 和 短 半 轴 . 角 五 叫 偏 近 点 角 (eccentric anomaly). 下 焦点 到 零点 O 的 
距离 是 ae, e 是 偏心 率 .、 参数 e 决定 了 椭 园 的 形状 . 现在 地 球 轨道 的 偏心 率 e = 0.01672. 而 角 v， 叫 
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真 近 点 角 (true anomaly). 它 是 以 环 为 原点 的 坐标 系 的 极 角 . 给 定 互 点 与 已 点 的 坐标 ， 就 可 以 计 
算 向 量 下 忆 的 长 度 r. 它 是 


7 一 a(1 一 ecos( 刀 ))， mcos(o) = atcos ( 瓦 ) 一 e) 


第 一 个 方程 利用 了 椭圆 是 虚线 圆 的 仿 射 映 射 这 个 事实 而 得 到 . 后 一 个 方程 是 在 x 轴 上 距离 的 简单 
比较 . 对 这 两 个 方程 经 过 一 些 元 长 的 计算 之 后 ， 得 到 v 和 巴 的 关系 : 


tan( 互 /2) 三 tan(w/2)tan(arccos(e)/2). (27.1) 


行星 的 运动 使 得 v 和 五 的 值 不 规则 变化 . 而 按照 Kepler 第 二 定律 ， 矢 径 下 P 在 等 时 间 间 隔 内 扫 
过 相等 的 面积 ， 因 而 ， 在 图 27.7 中 阴影 面积 9 有 规律 地 增长 ， 借助 于 仿 射 映 射 ， 可 得 到 
全 二 写 全 一 esin ( 古 ))， 
五 用 弧度 表示 .括号 中 的 量 叫 平 均 近 点 角 (mean anomaly), 它 正 比 于 时 间 . 我 们 把 它 简写 为 mm. 由 
此 得 到 Kepler 方程 . 
1 一 已 一 esin( 五 )， (27.2) 


它 把 偶 近 点 角 五 和 平均 近 点 角 m 联系 起 来 . 平均 近 点 角 是 一 个 假想 的 行星 在 从 太阳 看 到 的 近日 
点 的 角 距 .这 个 假想 的 行星 绕 太 阳 运 转 的 速度 是 常数 ， 运 转 的 时 间 与 真实 的 行星 相同 ， 


时 间 方 程 

由 于 地 球 在 绕 日 轨道 上 的 速度 不 断 变化 ， 这 是 Kepler 第 二 定律 所 描述 的 情况 ， 以 及 地 球 自 转 
轴 相 对 于 黄道 面 的 倾斜 ， 太 阳 在 天 空中 的 运动 在 一 年 之 中 是 不 一 致 的 ， 故 要 对 地 方 真 太 阳 时 进行 
修正 ， 以 表示 平 太 阳 时 ， 这 个 修正 叫做 时 间 方 程 . 

地 球速 度 变 化 对 时 间 方 程 的 影响 zx 在 真 近 点 角 和 平均 近 点 角 之 间 是 不 同 的 ， 即 


2 天 一 7 一 也. 


用 真实 太阳 的 黄 经 工 计算 这 个 量 最 为 理想 记 住 工 是 从 春分 点 开始 计算 的 ， 见 图 27.2.1. 另 一 方 
面 ， 实 际 近 点 角 v 是 从 近日 点 开始 计算 ， 现 在 的 经 度 是 Zo = -77.11?, 见 图 27.1. 因此 实际 的 近 点 
角 ~ 是 

45 一 了 一 艺 0. 


然后 ， 用 方程 27.1 和 27.2 计算 偏 近 点 角 媚 和 平均 近 点 角 季 . 
对 时 间 方 程 的 第 二 个 影响 是 由 于 地 球 自转 轴 对 黄道 面 的 倾斜 ， 这 个 倾斜 角 为 e = 23.44", 并 且 
总 是 指向 同一 个 方向 ， 如 果 地 球 自 转轴 垂直 于 黄道 面 ， 则 不 必修 正 . 因此 是 假想 的 平 太阳 时 定义 
了 平 太阳 时 ， 它 沿 天 体 赤 道 运行 . 结果 是 ， 对 时 间 方 程 的 影响 z 在 经 度 二 和 真实 太阳 的 赤 经 之 间 
是 不 同 的 ， 即 : 
2 一 了 一 QQ 

赤 经 a 是 从 艺 利用 真实 太阳 在 两 个 天 体 坐 标 系 中 的 关系 式 

1 0 0 | cos ( 工 ) cos (4) cos (a) 

0 cos(ej 一 sinfe) sin (二 ) | = | cos (6) sin (a) 


0 Sinf(e) cos(Ee) 0 sin (0) 
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27.8 时 间 方 程 作为 黄道 十 二 宫 的 函数 





， --Kepler 效 尿 《zk) 
一 上 一 倾斜 效应 《mt) 
一 方程 时 间 
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时 间 方 程 zy 是 次 与 冯 之 和 . 由 于 wa 在 艺 =180?" 发生 跳跃 ， 五 在 远 日 点 (vv = 180?) 发 生 跳 


跃 ， 必 须 令 ze = arctan(tan(zo), 以 保持 ze 的 连续 性 . 因此 时 间 方 程 的 观测 值 为 


zg 一 arctan(tan(zk 十 zt)). 


图 27.8 画 出 了 时 间 方 程 ze 以 及 它 的 两 个 部 分 zx 和 z 相对 于 黄道 十 二 宫 的 曲线 (由 于 半年 的 


调整 ， 在 不 同年 份 ze 每 天 的 变化 很 小 ). 当 zx 在 地 球 轨道 的 近日 点 和 远 日 点 为 零 时 ， 


2 处 在 季节 


的 开始 ， 即 春分 点 和 秋分 操 (6 月 21 日 和 12 月 21 日 ) 也 为 零 . 图 27.9 表示 太阳 赤 纬 对 时 间 方 程 
的 依赖 关系 . 这 个 图 形象 数字 8, 称 为 8 字 图 . 如 果 在 一 年 之 内 每 天 都 在 同一 个 时 间 里 画 太阳 的 位 
置 ， 得 到 的 结果 就 是 一 个 8 字 图 . 实 线 是 时 间 从 12 月 21 日 到 6 月 21 日 ,间断 线 则 是 一 年 的 另 一 


半 时 间 . 圆 点 的 赤 纬 线 刻 度 表 示 黄 道士 二 官 的 一 个 新 官 的 开始 . 


27.9 8 字 图 
偏 站 (min 
-16-t+2-6 -40 4 8 12 46 





赤 纬 [degreej 
心 


-5-4-3-2-10123 4 5 
偏差 [degreel 
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当地 平 太阳 时 


当地 平 太阳 时 是 由 前 一 节 引 入 的 假想 平均 太阳 的 时 角 所 定义 的 时 间 . 当地 平 太 阳 时 7 等 于 
当地 真 太 阳 时 歼 减 去 时 间 方 程 ， 
了 mn 三 了 r 一 20， 


当地 平 太 阳 时 的 第 有 个 小 时 的 时 角 如 是 
tm 一 15 (KR 一 12) 十 zo. 


用 8 字 图 标 上 平 太 阻 时 的 每 个 小 时 的 刻度 , 可 以 直接 从 刻度 盘 上 读 出 平 太阳 时 而 不 必 做 任何 修正 . 
下 面 摘录 的 程序 首先 计算 了 一 年 的 太阳 的 赤 纬 和 时 间 方 程 ， 用 这 些 信息 很 容易 画 出 第 个 小 时 的 
8 字 图 . 

>> LO = -77.11; e= 0.01672; eps = 23.44; P = Pi/180; 


>> 工 = 3*py[-30:90] ; 4 Sun:s True Longitude 
>>V = 工 - LO*p; Ah True Anomaly 

>> C = sqrt((1-e)/ (li+e)) ; % c=tan(arccos(e)/V2) 

>> 下 = 2*+atan(cktanCV/2) ) ; % Eccentric Anomaly 

>> ZK = 了 -~-e*kSsin(E)-vV; 

>> X = [cos(L) ; % Sun7s Coordjinates in System 
>> sin(L)*cos(eps*p) ; % of Celestial Equator 
>> sin(L)*sin(epsyp)]; 

>> T = Sqrt(x(l,:).”2+x(2，,:). ”2) ; 

>> al = atan2(x(2,:),Xx(1,:)); % Right Ascension 

>> d = atan2(x(3，:) ,T) ; % DeclLination 

>> Z 上 t = 直 -al; 

>> Zg = atan(tan(ZK+Zt)) ; % Equation of Time 

>> for kK = 9:15， % Indqividual Hour Lines 


>> 寸 = 15*py(k-12)+Zg; 
>> ”Project(t,d,Phi,g,:-y:) ; 
>> end ; 


时 区 


迄今 为 止 讨论 的 地 方 平 太 阳 时 是 对 一 个 子午 线 在 天 文学 上 的 修正 .一 个 在 西边 远方 的 日 吴 显 
示 的 时 间 要 落后 于 当地 的 日 时. 而 一 个 时 间 统 一 的 系统 在 日 常生 活 中 才 是 实用 的 . 所 以 ， 在 19 世 
纪 末 便 引 入 了 时 区 或 标准 时 .整个 地 球 划分 24 个 时 区 ， 从 本 初子 午 线 开始 ， 每 个 区 的 经 度 宽 度 约 
为 15". 本 初子 午 线 的 时 间 叫 格林 威 治 时 间 (GMT，Greenwich Mean Time), 从 它 向 东 ， 每 个 时 区 增 
加 一 个 小 时 ， 向 西 则 每 经 过 一 个 时 区 减少 一 个 小 时 . 

时 区 的 时 间 与 地 方 平 太 阳 时 间 的 不 同 之 处 为 当地 子午 线 入 与 时 区 子午 线 Xo 在 经 度 上 的 差别 . 
因此 第 大 个 时 区 的 时 角 为 

tz 一 15 (KR 一 12) 十 zo 十 (Xo 一 入 ). 
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27.3.3 巴 比 仑 时 与 意大利 时 
我 们 认为 是 巴 比 仑 人 将 一 天 分 为 24 小 时 ， 他 们 习惯 从 太阳 升 起 的 时 候 开 始 计时 . 与 此 相反 ， 
中 世纪 的 意大利 人 是 把 日 落 当 作 一 天 的 开始 . 这 两 个 计时 系统 都 沿用 了 很 长 时 间 ， 即 使 在 现在 也 
能 发 现 无 数 的 古老 欧洲 日 号， 它们 有 的 用 巴 比 仑 时 有 的 用 意大利 时 .尽管 它们 已 经 不 再 使 用 ， 但 
可 以 用 这 些 时 间 刻 度 来 研究 日 规 ， 令 
cos (0 ) cos (7) 
ug 三 | cos (6) sin (7) 
sin (6) 


是 日 落 时 的 太阳 位 置 ， 向 量 u 在 地 平面 内 .因而 


cos (WwW) 0 一 sin(t) 
un 二 0 1 0 | us， 
sin (W) 0 cos(uw) 


其 中 必 =90?" 一 少 而 纬度 为 多 的 z 分 量 必须 为 零 . 由 此 得 到 日 落 时 的 时 角 r 的 方程 
cos(T) 三 一 tan(6)tan(0). 


负 解 上 = -7 是 日 出 时 的 时 角 . 注意 7 也 是 白天 长 度 的 一 半 . 第 上 个 巴 比 仑 小 时 与 第 ;个 意大利 小 
时 的 时 角 分 别 是 
如一 15"b-T 和 雪 = 三 15? 十 7 

时 角 上 不仅 依赖 于 & 或 者 让, 也 依赖 于 太阳 的 赤 纬 ， 回想 一 下 日 凡 指 针 投影 法 : 巴 比 仑 时 和 意大利 
时 的 小 时 线 都 是 大 圆 的 投影 所 以 都 是 直线 .因此 第 个 巴 比 仑 与 第 ;个 意大利 的 小 时 线 的 交点 位 
于 如 = 十 切 /2 的 地 方 真 太阳 时 的 小 时 线 上 . 

对 于 纬度 少 > |90" - el, 巴 比 仑 时 和 意大利 时 只 对 赤 纬 定义 ， 对 此 既 没 有 极点 的 白 晶 也 没有 极 
点 的 黑夜 ， 这 意味 着 它们 只 定义 在 6 e [-6o,5o] 内 ， 其 中 


wo -1 : : | 和 十 e< 90。 
”1 9o。-4 : 其 它 情况 . 


下 面 摘录 的 程序 画 出 了 巴 比 仑 小 时 线 . 每 个 小 时 线 都 计算 了 三 个 点 ， 它 们 应 该 在 一 条 直线 上 . 
>> /和 Babylonic houTs 
> 


W 


if (abs(Phi)+eps*pP > pi/2)， % declination restricted above 
>> do = Pi/2-phi; %h Polar circle 
>> ese 


>> do = epSs*+P; 


>> S0 = acos(-tan(d0)*tan(Pphi)) ; 

>> k3 = fix(so/7.5/P) ; %h Dumber of hours for longest day 
>> d = d0*[-1:1]; 

>> 8 = acos(-tan(d)*tan(Pphi)); 
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>> [or KX=O:K3， 

>> 七 = 15*X*yP-s ; 

>> ”Project(t,da,Pphi,g， 一 .rr); 
>> enda 


图 27.11 给 出 了 有 巴 比 仑 小 时 线 与 意大利 小 时 线 的 日 医 . 


27.4 任意 平面 上 的 日 器 


迄今 为 止 ， 我 们 讨论 的 日 里 是 在 地 平面 上 . 把 它 推 广 到 任意 方位 的 平面 上 并 不 困难 . 例如 ， 
任意 平面 的 方向 由 平面 垂 线 nm 的 方向 角 a 和 仰角 疡 来 定义 ， 见 图 27.10. 


图 27.10 地 平面 和 任意 平面 





有 两 种 不 同方 法 来 计算 任意 平面 的 日 里 .第 一 种 ,用 两 个 旋转 变换 把 水 平日 时 的 坐标 系 (xd,yd, za) 
变换 成 任意 平面 日 蜂 的 坐标 系 (x,y",z0). 第 二 种 ， 我 们 可 以 在 地 球 上 确定 一 个 位 置 ， 对 这 一 点 而 
言 ， 它 的 方位 角 平 行 于 所 需 平面 的 垂 线 . 然后 我 们 可 以 计算 这 个 新 位 置 的 水 平日 屋 ， 这 个 方法 需 
要 球面 三 角 的 一 些 知识 并 需 修正 现 有 程序 四. 首先 让 我 们 用 第 一 种 方法 . 

利用 两 次 旋转 把 在 水 平日 唉 的 当地 坐标 系 中 的 一 条 太阳 光线 va 变 成 任意 平面 的 坐标 系 中 的 
一 条 太阳 光线 v?. 具体 来 说 ， 向 量 vy 由 


cos(p) 0 一 sin (中 cos (a) sin(a) 0 
va = 0 1 0 一 sin{(a) cos(aj 0 | va. 
sin(b) 0 cos(b) 0 0 1 


决定 ， 这 里 o 是 南极 点 顺 时 针 测 量 的 方位 角 ， 而 总 = 90? 一 六 六 为 仰角 相应 的 对 程序 Project 的 
修正 是 十 分 方便 的 ， 我 们 把 它 留 给 读者 . 


27.5 ”计算 实例 


本 章 给 出 的 代码 很 容易 加 到 MATLAB 中 去 ， 它 会 调用 画 日 刁 的 程序 project. 将 输出 适当 放 
大 ， 就 可 以 给 一 位 熟练 的 画 匠 当 作 制作 精确 日 晴 的 草图 . 程序 要 求 输入 的 是 精确 的 地 理 位 置 ， 日 
里 平 面 的 方向 和 它 的 大 小 ， 大 小 决定 了 日 蜂 指 针 的 长 得 . 如 果 日 喀 还 要 显示 时 区 的 时 间 ， 则 还 需 
要 时 区 子午 线 的 经 度 Xo. 地 理 参 数 必 须 相 当 仔 细 才 能 保证 精度 . 最 后 的 困难 是 校正 日 嗓 指 针 的 位 
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置 . 读 取 时 间 使 用 的 只 是 它 的 顶端 ， 它 必须 置 于 日 丹 坐 标 系 零点 上 方 的 预定 距离 . 日 医 指 针 本 身 
可 以 有 任意 的 方向 ， 但 如 果 需 要 把 地 方 真 太阳 时 读 出 来 ， 它 必须 平行 地 球 的 自转 轴 .， 要 想 更 详细 
地 了 解 如 何 设计 一 个 日 贱 请 参考 文献 由. 

图 27.11 所 示 的 是 在 瑞士 西部 的 Vingelz 的 一 个 几乎 垂直 墙 上 的 日 医 . 日 吴 的 参数 如 表 27.2 所 


一 -一 


不 . 


表 27.2 地 理 位 置 和 方位 
经 度 -7?13'01” | 方位 角 “一 48.95。 
纬度 ”47?07'48” | 仰角 5.71% 


日 峰 指 示 了 欧洲 中 心 时 (CET, Central European Time), 还 有 巴 比 仑 时 和 意大利 时 .甚至 也 能 读 出 
地 方 真 太阳 时 ， 只 要 日 旷 指 针 平 行 于 地 球 的 自转 轴 . 在 8 字 图 后 面 的 直线 网 格 给 出 了 巴 比 仑 时 和 
意大利 时 . 每 隔 一 条 线 都 标 上 了 阿拉 伯 数 字 . 直线 1,3,5,7 表示 自从 太阳 升 起 以 后 已 经 过 了 多 少 个 
小 时 〈 巴 比 仓 时 ), 而 直线 8,10,12,14 表示 到 日 落 还 有 多 少 个 小 时 (意大利 时 ). 为 了 读 出 时 间 ， 请 看 
图 中 的 几 个 大 黑 圆 点 . 它 代 表 日 匡 指 针 项 端的 影子 . 


图 27.11 瑞士 西部 ， Vingelz 的 日 冉 





A. 从 太阳 升 起 已 经 过 了 多 少 个 小 时 ?请 看 那 条 从 左下 到 右上 的 稍微 倾斜 的 直线 . 例 A 表 
示 ， 影 子 所 指示 的 时 间或 者 是 4 月 20 日 6 点 40 分 (CET) 或 者 是 8 月 23 日 6 点 45(CET). 它 是 
太阳 升 起 后 的 一 小 时 . 

也 . 到 日 落 还 有 多 少 小 时 ? 请 看 那 条 从 左上 到 右 下 的 很 陡 的 直线 . 例 B 表示 影子 所 指示 的 时 
间 是 6 月 21 日 10 时 320 分 (CET) 上 : 到 日 落 还 剩 下 10 个 小 时 . 

C. 现在 是 什么 时 间 ? 请 看 那些 带 有 罗马 数字 的 8 字 图 . 当 影 子 投 射 在 8 字 线 上 ， 它 正好 是 
一 个 整 的 小 时 (CET). 8 字 图 比较 粗 的 部 分 对 应 前 半年 (12 月 21 日 -6 月 21 日 ), 比较 细 的 部 分 对 
应 后 半年 (6 月 21 日 -12 月 21 日 ). 例 C 表示 影子 所 指示 的 时 间 是 2 月 19 日 12 时 (CET). 

D. 地 方 真 太阳 时 . 巴 比 仑 与 意大利 时 线 的 交点 可 用 来 确定 地 方 真 太 阳 时 . 为 此 ， 只 要 看 此 时 
日 刁 指 针 的 影子 . 例 D 表示 ， 影 子 所 指示 的 时 间 为 地 方 真 太阳 时 间 正 午 12 时 . 对 Vingelz 来 说 ， 
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太阳 处 在 白天 的 最 高 点 . 
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